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5 Original Issue 


wee é Changes for the VI.I Release 
} Page Change 


2-23 Updated TABLE 2.2: | 
Changed FDI.LIST.HEAD from 295 BITS/ENTRY to 
359 BITS/ENTRY. 


2-5/7 Added new section, INDEXED I-O IMPLEMENTATION , 
consisting of: 
GENERAL description. 
TAG FILE FORMAT section 
ROUGH TABLE FORMAT section 
ADDING RECORDS TO THE FILE section 
FILE SEARCHING THE TAG FILE section 
FILE-CONTROL ENTRY section 
FILE STATUS VALUES section 
CLOSE STATEMENT section 
DELETE STATEMENT section. (Not Yet Implemented) 
OPEN STATEMENT section 
READ STATEMENT section 
REWRITE STATEMENT section 
START STATEMENT section 
USE STATEMENT section 
WRITE section 


2-60 to | 
2-72 Added INDEXED FILE MODEL (sample COBOL program) 
Aad Updated FPB INFO (80) Table: 
Changed UNUSED from 28 to 26. | 
4-22 Added FILE ACCESS and ORGANIZATION information to 
DNINFO chart. 


ENN £ | 
N VLA J CHANGES FOR 7.0 RELEASE LEVEL 


fj | 3-1 Syntax for Data-Base Declaration added | 
| 3-2 Added: 02 FILLER BIT(4) and changed BIT(12) ee 
STR.NUMBER to BIT(8). 
Added to PARSE: "DMCATEGORY becomes a separate 
GHIVED TRESWD temporarily." 
| | Added to EXPLODE: "For DMCATEGORY, transform to a 
MAR 114 1978 - 2 normal TWORD, allowing direct access by any appro- 
priate COBOL operation." 
ranges wena ter 3-3 Added to: When DB is declared, the compiler: "If 
ss | present, outputs OF followéd by ..." 
Changed: When Data Set is declared, the compiler: 
from "IF ORDERING THEN pe ELSE 52" to "IF ‘RETRIEVAL’ 
THEN 52 ELSE 51." m4 
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! 4-23 "Used by computer" changed to "Used by CODEGEN" 


“THE INFORMATION CONTAINED IN THIS DOCUMENT IS CONFIDENTIAL AND PROPRIETARY TO BURROUGHS 
CORPORATION AND IS NOT TO BE DISCLOSED TO ANYONE OUTSIDE OF BURROUGHS CORPORATION WITHOUT 
THE PRIOR WRITTEN RELEASE FROM THE PATENT DIVISION OF BURROUGHS CORPORATION’’ | 


Tc-l 


5 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP COBOL COMPILER LOGIC 


SANTA BARBARA PLANT | PeSe 2212 5397 (C) 


ITASLE OF CONTENTS 


DESIGN FEATURES « « «© «© © «© @© @ « «@ oe © © © © © © © © #© @ @ i-1 
SOURCE LANGUAGE SELECTION 1-1 
RELATED DOCUMENTATION oe e« © @® © © © © © © © © @© © © © @ i-2 
DEBUGGING CAPABILITIES | i. 13: 
OYNAKMIC MENORY °° © e®© © © e@© © @© © © © eo ee ew ew ew ew lel wl lew Lh 
EMNTERMEDIATE FILE OESTGN 1-4 
PHASES OF THE COMPILER ~« « « « « «© «© « « °* 0e©«©e © @ © @ @ 8& @ 2-1 
ENITEAL PARSING CPARSE) o>] 
OICTIGNARY PROCESSING CDICT) o7n e © © © eo ee et ew let lw lw SAG 
DATA“NAME QUALIFICATION RESOLUTION CONQUAL) 2-9 
LABEL QUALIFICATION RESOLUTION CLQUAL) . .« « «© «© © © © © 2h 
MERGE 2-12 
DATA DIVISION SYNTAX CHECK CDATSYN) . 2. 2 «© «© © «© © ©) 2°85 
EXPLODE - 2-19 
PROCEDURE DIVISION SYNTAX CHECKING CPROSYN) . « « « « « 2°21 
CODE GENERATOR CCODEGEN) 2°23 
FIXUP ° so ce« ef © © @® @ @©@ @© &© © © © © © © © © ee eee 2°25 
MONTTOR STATEMENT 2-30 
SUBSCRIPT AND INDEX OPTEMIZATION ee © © © © © ow ew ew wo ew 2733 
GLOBAL .DOLLAR FORMAT | 2-354 
USE OF DYNAMIC ee ee ee oe ee ee ee ee ee ae ee ee ee 2-35 
po EMITEALIZING GOPAR VALUES OF AN INDEPENDENT SEGMENT 2-36 
| GENERAL 7 2-2 © © © © © © © © © © © ee ee let ltl wl ltl ew lw CMG 
| | TAG FILE FORMAT 2-38 
| NEW CONTROL CARD OPTION “2 © 2 © © © © eo wo eo eo ww wo ew 27358 
: TAG FILE NAME 2°40 
: ROUGH TABLE FORMAT . . « eee © @© e@©h eh OF eh eh ehlUcrhlcthlUrhlef le 27-40 
| ADDING RECORDS ¥O THE FILE 2-41 
| SEARCHING THE TAG FILE oe fe © © @ © &@© © © © © ee he 2-41 
 FELE“CONTROL ENTRY 2= 42 
| FILE STATUS VALUES . .« « « oe fe @ © © © © © © © © © @& 2-43 
| CLOSE. STATEMENT 2-64 
DELETE STATEMENT «2 2. 0 oe tte ttt tw ek 2H kh 
OPEN STATEMENT 2-45 
| READ STATENENT oe © @ © © © © © © &©@ © @ ee eh lhl etl lel OMG 
: REMRETE STATEMENT 2-487 
7 START STATEMENT . oe fe 8 e@ © @ © 8 © © © ehlUlcOhloehl fhm 2-48 
USE STATEMENT | 2=50 
| ? WRITE STATEMENT 7 ef 82 © © © © © © ew ew ek le ltl etl tlw lew 27H 
3 ENDEKEO FILE MODEL 2-52 
DATA WA NAGE MENT -27 ce © © @ © © © © © © © © © © © © © © 8 8 3-1 
DATABASE DECLARATIONS 3~1 
PARSE oo ce e@ e© &© © 8&8 © © © © © © © © @© © @© © © © @ @ © ee og 2 
DICTIONARY PROCESSING | oe | 5-5: . 
QUALIFICATION RESOLUTION “2 @ © © @ © © © © © © © © eo ew 3575 
MERGE | 3-6 
DATABASE SECTION PROCESSING . eo 2e© © © @® © 8» © © ® @ © @® 3-6 
PRGCEDQURE OFTVISTON PROCESSING 3-9 


TC-2 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP COBOL COMPILER LOGIC 
SANTA BARBARA PLANT P.Se 2212 5397 (C) 
DATSYN «se e© e8 fe &© © @© 0@© © @© @© © &©& @© @ ®© @©& @ © @© @ @ a es 3-17 
EXPLODE | 3-17 
PROSTN PROCESSING a a ee ee ee 3-17 
CODEGEN —3i7- 
SAMPLE DATA“BASE SECTION « « «© «© «© © © @ © © © © © @ @ 3718 
PATH DICTIONARY TABLE | 3-20 
PATH TABLE AND ALGORITHM a ee ee ee ee Se ee 3-21 
INTERMEDIATE FILE TOKENS | —  &1 
“ALLFILE AND ONFILE TOKENS « 2. « «© © 2 2 © © © © © ee 2 oe 4h 
SEGFILE TOKENS 4-2 
MISCELLANEOUS e2cF7«e«e#8#e8 © @® @# @® «© ® &® e@® #® © @© #© &@ @ 4-3 
ALLFILE: FROM INITIAL PARSING CI) 4-5 
OW ILE: FROM INITIAL PARSING CIE) « 2 2 «© 2 © © 2 2 © eo oe 477 
DNFILE: FROM DICTIONARY PROCESSING CIT) 4-9 
DNF ILE? FROM CGUALIFICATION RESOLUTION CIEIT) «© « © «© « « 4&°7hl 
PCINFO: FROM MERGE CIV) 4-13 
ALLONFILE? FROM MERGE Civ) owewe*# ® «2 e« © e # # # @ 4-14 
DNINFO: CENTERNAL FILE) DATA OLVISION C¥) 4-16. 


ALLONFILES FROM EXPLODE CVI) . 2 2 © & © 2 0 0 eo oe ow oe 418 
ALLONFILE: FROM PROCEDURE DIVISION SYNTAX CHECK CVIT) 4-20 
LABELTABLES FROM CODEGEN CVITI). « «© «© © 2 0 2 2 ew ee 42M 
SEGFEILE: FROM ALL PRIOR PHASES . 4-25 
CODEFILE: FROM FIXUP CIX). 2 « 2 © 0 2 © 2 0 0 ow ee we ow 4750 


BURROUGHS CORPORATION | COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP COBOL COMPILER LOGIC 
SANTA BARBARA PLANT PoS. 2212 5397 (CC). 


DESIGN FEATURES 


SOURCE LANGUAGE SELECTION 


The COBOL Cospiler is a aultipass coupiler which accepts ANSI 68 


COBOL with Burroughs extensions. The high level of each Language 
aodute of USA Standard COBOL» rather than CO80i subsets» was 
implemented hecause subset language elements seemed arbitrarily 
selected> difficutt to use» and restrictive. The coapiter was 
uritten to be coapatible with 83500 Language extensions rather 


than geared toward the tower end of the 81790 memory scate. 


"Multipass® or “snultiphase™ conpilation better utilizes smatt 
mesory stores. CAlsos it is possibte for one phase to be coded 
and checked out theough interaediate files before the final code 
file is built.) The original source code is transformed to a amore 


~econvenient fora by passing it against a part of the compiler. 


The transforsed text is passed to the next phase via an 
intermediate work file. In this way» data is managed in a 
quasi-sequential manner and randca overlays are minimized» as in | 
a data paging or a virtuat-menory system of management. In the. 
same way» code overlays are sinisized because onty a part of the 
code is invoked to transfora atl the data for the phase. 


Multipass compilation does have the following disadvantages which 
need to be recognized: 


-- The format of each token» as it appears to each passe 
must be weil defined. If token formats changes each 
instance aust be changed. | | 


== Extra cade ts required in each phase to get and put 
tokens. | | 


== If a large smesory is available» there is no easy way to 
combine phases» @-ge» label and data-name quati fication 
resolution could be cosbined if there was space for the 
intermediate tables. | 


=< A certain fixed overhead is required for opening and 
closing the intermediate files» even for a mininua 
source tanguage deck. _ 


This product specification wilt discuss the design features» 
generat functions. file structuress source record nerge 
procedures» and data amanagement processes of the CO80L Compiler. 
For further inforsgation about virtual machine language or about 


COBOL source ftanguage» the user is instructed to see the 
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appropriate documentation (See RELATED DOCUMENTATION below). 


RELATED DOCUMENTATION 


NAME NUMBER 
USA Standard COBOL USAS X%3.23°1968 
COBOL S-Language PeSe 2201 8729 
COBOL Cospiter | PeSe 2212 5314 
COBOL Reference Manual 1057197 


DMS {I PeSe 2212 5470 


| [=3 
BURROUGHS CORPORATION | | COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP | 7 COBOL COMPILER LOGIC 
SANTA BARBARA PLANT PeSe 2212 5397 (C) 


DEBUGGING CAPABILITIES 


A variety of debugging output has been incorporated in the COBOL 
compiler in order to nininize the debugging error detection and 
error correction tine. This output is printed when the following 
doltar card reserved words are used: 


<NO> PARSE? Initial parsing 
<NO> DICT: Dictionary processing 
<NO> DNQUAL: Data-name qualification resolution 
<NG> LQUAL =: Label qualification resolution 
<NO> HOIGE: Merge (Note: *MERGE® has another meaning) 
<NO0> DATSYN: | DATA DIVISION syntax checking 
<NO> EXPLODE Explode 
<NO> PROSYN: | PROCEDURE DIVISION syntax checking 
<NO> COOEGENS? Code generation 
<NO> FIXUP: Fixup the codefile 


When this option is useds a formatted token as seen by the GET 
and PUT procedures for that phase is printed. In additions the. 
mame of each procedure and any pertinent variable is printed upon 
entering the procedure. Most recursive procedures aiso monitor 
their exit points for ease of debugging. It is possible to see 
each process» for the duration of several cards» by turning 
sonitor on or off for the desired phase(s). 


eel 
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DYNAMIC MEMORY 


The COBOL Compiler is designed for many memory configurationse 
and can effectively utilize additional menory if it is available. 
The COBOL compiler accoaptishes this by managing the dynaagic 
space declared at cospile tine. : 


A certain minigun space is required for building lists and tabtes 
during the different phases. Associated with this minimum space 
are tinits» e.g.s the nuaber of DATA“NAMES» PROCEDURE“NAMES» etc. 
if a particular source program exceeds any of these limits» more 
space aust be dedicated by increasing the dynamic space and 
recoapiling. An atteapt has been sade to sake these restrictions 
“reasonable. | 


If wore space is available» the compiler is designed to use that 
space for a significant speed gain. | 


GNTERMEDLATE FILE DESIGN 


in order to aininize the interaediate file sizes» information 
about the original text is distributed to several files which are 
ordered to each other. The individual files are then processed 
without the need to copy extraneous information. When ait of the 
transfornations are conplete the files are merged. 


Care aust be taken to preserve the original ordering of the 
files. 


The diagrasa below shows the flow of the intermediate files fron 
one phase to another. The first record of the SEGFILE is used to 
pass gtodat data between phasese e¢.9. the DONT.GENERATE.CODE 
flag or the ABORT flag in case of a drastic errors» etc. This 
aspect of the SEGFILE is not shown. 


_ 
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| SOURCE * CAROS LIBRARY* 
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= a) a an a an SHAM DESO ZEON Benemeenawe 
{ 
RARKRARAKKEAERERAEREKARARAKARER 


INITIAL PARSINGCPAR SE) 


(RRR EBSSPSRALALELES REESE RS SS : 


REPORT ALLFILE®* ONFILE* NE WSOURCE* LIBRARY 
{ § | | CSAVED) CSAVED) 
a q 4 
q RARKRUERARARHRAEKHEARRARARRKARKRRKEKARE 
| DICTIONARY PROCESSINGCDICT) 
i RRAKKKKEARKKEKEEKKRARKRKKKEKRKEEAH 


ONFICEX*! = 1 
i<eerrt 6 ONFILE® | 
i 


=weae a> | 


j i ft 
a RAREREEEAREREEEEAREEREREER 
i DATA NAME QUALIFICATION 
| RESOLUTIONCONQUAL ) 

ONF ILE Ka wax eaaaaxakkekakek rake k&eket 
| ; 4 


E<er--i DNF ILE 
i 

j waece~> 4 

| ee | 


~~ aa a om SS om Ob om an Ob Ot > ob Oh ae 0 oe oe ee oe ee ee 
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j 
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{ 


| RAEKKRKRAKAKKEREKKKEKKEK 
i LASEL QUALIFICATION 
DONFILEX* RESOLUTIONCLOQUAL) 
4 RAEEHEEKERARKEKKRAREKKKEK 
i<o---i | 
DNF ICE« 
i 
TO FIXUP) TG MERGE) (TO MERGED 


* Indicates workfile names in the fora COBOLW/<name> 


Tabte 1.1 Flow of Intersnediate Files 
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CFROM PARSE) CFROM PARSE) CFROM LOQUAL) 
a ( q 
REPORTs ACLFILE® DNF ILE 
i i t 
: | Sateen nwoweoocean 
: | t 
| | RaRKKKK 
i MERGE 
| | Rkakeaek 
| : i 
| O82 S882 SOBBHEADA*LDGTT TBAB ABA eee e 
| a  § 4 
' SEGFILEs ADNFILE®s PCINFO*« 
‘ ‘ = & | 4 
4 AS eee Ses eS See ees 4 Sees See es 
§ f 
§ RARKAAKRARARAKRRAKARARRAREKRE 
i DATA DIVISION SYNTAX 
4 CDATSYN) AND EXPLODE 
q KRAAKARAKAERAEKRHAHKAKAEAREKEK 
( | 
q O80 8088 HONDO EE ZOEDTGAB AB BBM HB BUA:Ae 
d i | ‘ 
i SEGFILE* ADF ILE* DNINFO* 
4 q i | CINTERNAL TO THIS PHASE) 
3 é ‘ | 
3 q REKREKRARREKERKEKKKKE 
j 4 PROCEDURE DIVISION 
| f SYNTAXCPROSYN) 
| q RAERKERRAEEKRAKERKEKEKAE 
t i j 
L ‘ ALLONOUT* 
4 t 4 
i setetebatatetaneteteteabetater 
i : 4 
CTO FIXUP) «TO CODEGEN) 


Tabte 1.1 Flow of Intermediate Files (Cont.) 
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CFROM PARSE) CFROM PROSYN) 
i | i 
q ERARKHARAKARERRHKAKKKREAKKE 
t CODE GENERATORCCODEGEN) 
a RAEAEKKEKEKKEKEAKAREKAKKKKRAKE 
| i 
| 
‘ ( f 
( SEGFILE* LABELTABLE* 
{ 4 4 
2D GD GP ED GR GD ED AD OE ON GE EE SE BE EC BRE @ OSE BH ES 8 eww eeeaem en ne ee 
§ 
i 
i 
&kk&kaKaK 
FIXUP 
RRAKAKE 
i 
a sanansacecamwoe § 
UE j | 
LINE CODEFILE*s 
COptionat) Cif no errors) 


Table 1.1 Flow of Intersediate Files (Cont.) 


*NOTE2 As of 6-1 Version» in order to reduce the OPEN/CLOSE 
overheads each seriat workfile is now opened [1/0 and 
repositioned as needed. further» the following logical 
files no longer exist as physicatly separate entities: 


ALLFILE and ONFILE now use ALLDNOUT 
DNFILE and LABELTABLE now use ADFILE 
PCINFO now uses ONFILEX. 
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PHASES OF THE COMPILER 


The following is a functional description of each of the compiler 
phases and its interaediate files. Where applicable, a 
description of how dynamic sesory is saanaged is included. 


INITIAL PARSING (PARSED 


INPUT EXILES 
CARDS (reader ): : Source card images or patch 
cards. 
SOURCE Coptionatl disk): source card itmages to which 
patches may be applied. 
LIBRARY Coptionat disk): Source card tsmages merged with 
the primary file when a COPY 
Statement is encountered. ) 
QUTPUT EILES 


NEWSOURCE Coptional disk): Source card images to uhich patch 
| cards say have been applied. 


LIBRARY Coptionat disk): New library fileC€s) created when 
“LL” is specified in colusan 7. 


REPORT Cdisk): Att card taages processed 
including dolitar cards» library 
cards and patch cards. This file 


is used tc print the optionat 
histing or error report. 


ALLFILE Cdisk): Contains at@ constant inforsation 
| about each token processed. This 
becoses the controlling file 

during the MERGE phase. 


ONFILE Cdisk): a Contains picture strings and alt 
variable names isolated Co Qe 
section-nagess paragraph names» 
and data-names. i 
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GENERAL EUNCTIONS 


le Merge source tlanguage inputs including library card 
images. 


Ze Scan and tsolate basic syabols e.g.5 words» integers» 
non-nuseric Literaiss nuaberss etc. 


36 Look up reserved words in a reserved word tist. 


4. Look up words in the optionat COPY REPLACING list or 
the optional SPECIAL“NAMES list. 


5e Verify that all for divisions are present and in the 
proper order. If this much is not corrects the ABORT 
flag is set to dbypass the regular processing and 
shortcut to the FIXUP phase. 


In order to asinisize the nenory required to hold thems the COBOL 
reserved words are organized into two primary tists: 


Le IDENTIFICATION DIVISION thru WORKING“STORAGE SECTION 
reserved words. | 


Ze PROCEDURE OILVISION reserved words. 


The vords are arranged in.sublists by length. For examples “I15%> 
“BY"» “OF"» etc. appear with other two character reserved words. 
A guess as to the frequency of use is applied to each sublist 
with the sore frequent words appearing at the beginning of the 
sublist. 


When a match is found by searching the sublist sequentially» the 
reserved word key and category are provided. Notse wordse NOTE 
sentences» and NOTE paragraphs are deleted when detected. 


SPECIAL FUNCTIONS 


There are certain special functions accoaptished in this phase. 
These appear below according to the division or section header 


associated with the function. 


age, 


ums 


er Fe ee a SR RR Reg) a SN So eRe ee, age ON eee ee re OS ee eee ee et Sgt ee Re eee, Me, 
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MONITOR SENTENCE 
le Verify that a file-name is dectared. 


Ze Identify and mark data=names and pr oc edure-names to be 
: MONITORed. | 


36 Pass these names to the MERGE phase as non-nuneric 
literats on the ALLFILE.- | | 


4 If the word “ALL” appears as the procedure-nane list. 
the name of each section and paragraph is passed to the 
MERGE phase as a non numeric titeral on the ALLFILE. 
DATE ~CONPILED 
t. Scan to the end of the sentence. 


20 Buidd an image containing date and time and output it 
to the REPORT file. 


‘“QBSECT-COMPUTER 


le Verify and save the MEMORY SIZE vatue (in characters) 
for the FIXUP phase. 


‘ie Save SEGMENT“LIMIT value. 


3. Save DATA SEGMENT-LIMIT vatue. 


SPECTAL“NAMES 
le Save the CURRENCY SIGN vatue. 
Ze Save the DECIMAL~POINT (comma vaiue). 


3e Burid the anenonic names list. 


DATA DIVISION 


le Assign an CCUR number to each file-nase and data-nane 
dectared. This nugber begins with one and increases by 
one (zerce ts reserved for error reporting). This OCUR 
becomes the internal representation for the data-nane 
after the DICT phase. FILLER entries are not assigned 
an OCUR unless they are OL FILLER ... entries of a 

4 fite. 


274 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP oe COBOL COMPILER LOGIC 
SANTA BARBARA PLANT PeSe 2212 5397 (CC) 
Ze Output a dusay FD to correspond to the WORKING-STORAGE 


SECTION header. This dummy FD is required for the 
DNQUAL phase. 


FALE SECTION 
le Parse the file-name of an FO or SD declaration. Set 
tevel to zero and the appropriate flags true. 
2- Drop the DATA RECORD(S?) clause and its operands. 
3e Mark the operands of the LABEL RECORD(S) ctause. 
he 


Parse the item descriptions of the fife record (See 
WORKING*STORAGE SECTION). | | 


WORKING"STORAGE SECTION 


Le 
Ze 
es 
he 


Se 


be 


7. 


Parse ites descriptions. 

isotate and verify proper tevel indicator. 
Recognize and aark FILLER entries. 

Mark the operands of a REDEFINES or RENAMES clause. 


Recognize a PICTURE declaration and control the scanner 
to isolate a PC string. 


Mark index-nanes. 


Mack all iteas that are not “corresponding” candidates» 


e-g- entries with FILLER specified» tevel = 66» 77» or 
88» and entries containing an OCCURS or REDEFINES 
clause. These are not considered for satection of 
corresponding pairs. 


PROCEDURE DIVISION 


Le 


2 


Recognize and sark section-nases and paragraph-nanes 
and assign thea a tabet OCUR nunber. This number 
begins with one and increases by one for each new 
section or paragraph (zero is reserved for error 
reporting). This fabet OCUR becomes the internat 
nuaber for the name after the DICT phase. 


Assign a segment nusber to each section based on 
SEGMENT“LIMIT and priorityonuaber dect ar ations. These 
segment numbers are secuentiat starting with zero. 


e=5 
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36 Recognize 60 10 paragraphs and saark them as tegat 
operands of an ALTER statement. 


ho Identify and mark operands of a GO TO» ALTER» PERFORM» | 
or a PERFORM «2. THRU ..--. statement. | | 


Se Mark operands of octher speciat 1/0 verbs as procedure 
Namese 


6. Recognize and aark operands of a CORRESPONDING verb 
(eege MOVE CORRESPONDING A TO 8). 


ey 


AMNEMONIC.BASE corer r> 
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DYNAMIC MEMORY 
The dynamic senory for parse is utilized as follows: 


RESERVED WORDS 


COPY.BASE S aaa nanananaaan> 
COPY REPLACING 
LINK LIST 


COPY NEXT AVAIL aie ace 
AVAILABLE 


MNEMONIC NAME 
LIST 


If COPY-NEXT-AVAIL ever meets MNEMONIC.BASE then an error meeaege 
is issued with a request to reconpite using sore senory. 


DICTIONARY PROCESSING COICT) 


INPUL EILES 
ONFILEs Contains ait picture strings» 
| declared | § variable names and 
references to the variables. 
QUTPUT EILES 
ONFILE: AGL picture strings and variables are 


reduced to an OCUR. 
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GENERAL EUNCTIONS 


Le Buiid a dictionary of declared data-names and 
procedure-nases. 


Ze Look up references to the declared variables and 
substitute an CCUR nuaber and a sane nase OCUR nusber 
for the syabot string. The sane nane OCUR nuaster 
points to any prior cccurrence of this name in a Link 
dist fashicn. If the same nage OCUR = the OCUR then 
the tast element of the list has been reached or the 
mane is unique. | 


36 Assign a picture OCUR nuaber to each new picture string 
that was dectared. A picture string is distinguished 
fron other variable nawses by adding a blank to the end 
of the string and increasing the symbot tength by one 

in the scanning process(PARSE). 


4. These functions are done on an iterative basis. when 
, the first atteapt is made to add a name to the 
dictionary and it will not fit» a DICTIONARY.~FULL.FLAG | 
is set to one and that token is sarked as unprocessed | 
on the output file. When a name is tooked up ine the 
dictionary and is founds it is sarked as processed on 
the output file and further processing of that token is 
inhibited for the duration of the iterations. If the 
nane is not founds and the OICTIGNARY.FULL.FLAG is 
equat to one the token is sarked as unprocessed on the 
output file>» otherwise an OCUR nuraber of zero is 
returned to indicate "UNIDENTIFIER NAME" and the token 
is marked as processed. This continues untit alt 
variable names have been added ta the dictionary. 


 DECTIONARY SEARCH 


Associated with each variable name is a stackhead number. This 
number is created in PARSE by applying a transformation to the 
character string coaprising the name. It is used as an index 
into a stackhead array ta find the beginning of the link list in 
which this narae shall appear. A tink of zero indicates end of 
the list or an espty list. 


Iwo stackhead arrays are maintained in the tookup process» one 
for data-names ard the other for picture strings and Cabels 
Csection-names and paragraph-names). The picture strings are 
distinguished from the tabels because they have a biank character 
appended to the end. 
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DYNANZC MEMORY 


The stackhead arrays and tink tists are saintained in the 


availabte dynasmic resory. One or sore iterations through the 
file may be eliminated by increasing the size of dynamic for this 
phase. | | 


Each iteration consists of two passes. 
PASS 1 
le Copy alt unprocessed tokens of the ENVIRONMENT DIVISION 


to the output file. 


2e Add alt dectared data-nanes = and tabets to the 
dictionary. | 


3 Look up the operands of a REDEFINES or RENAMES clause. 
This sotives the probles of implied qualification for 
duplicate deciarations in that the last gentioned | 

occurrence number will be found rather than the finat 
occurrence of that name. 


&4&e Look up ail data-names of the PROCEDURE DIVISION. The 
, OCUR nugber found wilt point to the finat occurrence of 
the same nae tink List. 


Se Copy unprocessed tabels to the output file. 


PASS If 
1. Look up unprocessed nases of the ENVERONMENT DIVISION. 
Ze Copy unprocessed data-names to the output file. 
36 Look up “abel references of the PROCEDURE DIVISION. tf 
the Label is a duplicates the OCUR nuaber of the final 
declaration will be found. 


he If the ODICTIONARY.FULL.FLAG is equat to one then 
| iterate to PASS [- | 


ie 
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DATA=NAME QUALIFICATION RESOLUTION CONQUAL) 


IN@UT EILES 
ONF ILE 3 Contains a same name OCUR for 
declared data-nases and an 
unresolved GCUR for data-name 
references and quatifiers. 
ONFILEs Contains resotved OCUR for 


data-name references. 


GENERAL EUNCTIONS 


te 


feo 


36 


he 


De 


66 


Ve 


8. 


Starting at the DATA DIVISION of the ONFILE (read 
only)» build an explicit data-name table containing the 
datacname flags CONeFLAGS)» the same name OCUR CSNAME D>» 
and the scape OCUR (SCOPE) for each explicit data-nase. 
The GROUP.FLAG is set at this tise. 


Re-read the entire ONFILE and write the resolved OCUR 
for referenced data~nanes. The quatifier tokens are 
dropped at this tine. 


Set the LASEL-RECORD.OPERAND flag for aif elements of a 
fabel record. 


Select corresponding pairs. The pairs are delimited by 


a corresponding sentinel so that the file can be 


processed propertly in the MERGE phase. 


Update the datatnawve reference count ‘based on the 


resolved OCUR. 


Set the MONITORed flag of the data~names listed in the 
MONITOR statement. 


Read the ONFILE and write a new ONFILE with the iedaecd 
DNeFLAGS posted to the expticit data-name tokens. 


When the PROCEDURE OIVISION is found on the input file» 
begin the LQUAL phase. 
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acOPE OF AN ENTRY 


The scope of each explicit datasnasge is catculated fron its devel 
number when buidding the data-nane tabdfe. The scope of a group 
item is the fast elementary item of the group. The scope of an 
eleaentary ites or an index~name or a RENAMES entrye or a 
condition-name is itself. 


Exanple: 


OCUR SNAME SCOPE 


C01) OL it ‘OL Ae 


(02) 02 08 02 Be 

€03) 03 03 86 C VA iso 5 THRU 10. 
C04) 04 04 03 D PC X. 

C05) 05 08 03 E. 

(06) 06 06 04 F PC X. 

(07) 07 07 0&8 G PC X. 

(086) 08 08 88 H VA "2% 73%. 
€09) 09 09 02 © PC X. 

€10) 10 10 66 J RENAHES D THRU F. 
cil) il it 66 K RENAMES 8. 

(12) 12 14 OL X. 

Cis) 02 13 02 B PC Xa. 

C14) 04 14 02 0 PC Xe. 


The same name and scope attributes are used in resotving 
references to duplicate names and in the selection of 
corresponding pairs for a CORRESPONDING verb. 


DOYNAMEC MEMORY 


The explicit data-nane tabte is built in dynamic memory. Each 
table entry occupies 38 bits. If the entire table can not be 
contained» an error wessage is issued with a request to recompile 
using more memory. 
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LABEL QUALIFICATION RESOLUTION CLQUAL) 


INPUT EILES 
ONF ILE: | Contains unresolved Label 
7 references. 
QuUTePUT EILES 
ONF ILE: Contains a unique tabet OCUR for 
. referenced sections or 
paragraphs. 


Le 


Ze 


3e 


he 


Se 


be 


Starting with the PROCEDURE DIVISION of the ONFILE (the | 
file was left open in DNQUAL)» buitd an explicit tabet 
table containing the flabet flags» same nage OCUR> 
seguent numbers» and section OCUR associated with the 
paragraph if any. The file is written during this 
process. 7 


Read the file and write the resolved OCUR for 
referenced tlabets. The tabet qualifiers are dropped at 
this tine. 


Mark the NONTTORed tabels and the terminat paragraph of 
a PERFORM range. 


Upon encountering an ALTER operand» verify that it is a 
GO TG paragraph and mark it as ALTERed. 


When the end of file is reached- assign a sequentiat 
tersinat paragraph nuaber to each terainat paragraph of 
a PERFORM range. 


Read and write the ONFILE with the updated t abel 
inforraticn posted to each explicit reference or tabei 
reference to it. | 
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DYNAMIC MEMORY 


The explicit Label table is duilt in dynamic memory. Each entry 
occupies 41 bits. If the entire table can not be contained» an 
error message is issued with a request to recompile using more. 
nemor y. : 


MERGE 
INPUT EILES 
ALLFILE: Contains constant inforsation 
| about each token processed in 
PARSE. 

DNFILEs Contains unique OCUR nuabder for 
each data-nane and tabet 
referenced. 

OQUIPUT EILES 

AONFILES Contains serged tokens of the 
ALLFILE and the DNFILE-} 

PCF ILE: | Contains PCINFO entry for each 
unique picture string of the DATA 
OIVISION. 

SEGFILE =: Edit swasks generated by the 


picture anatyzers and symbols to 
be printed when MONITORing are 
added to this fite. 


GENERAL EUNCTIONS 


The primary function of this phase is to serge the ALLFILE and 


the ONFILE giving the ADNFILE. In addition the following 
functions are per forsaed: _ | 


le The datacname syabols to be printed when MONITORing are 
written to the SEGFILE» and the monitored OCUR vs _ = the 
memory address are put into a tabie. A table of OCUR 
numbers vs the label i aa to be printed is ptacee in 
another tabife. 
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Ze Analyze unique picture strings (the picture OCUR of the 

current PC is greater than the last one analyzed) and 

create a PCINFOQ entry on the PCFILE. This entry 

contains PC attributes like sizes scate»s class» etc. 

If an edit mask is required it is written to the 

SEGFILE and its seaory address is posted to the PCINFO 
entry. 


30 A table of condition-nane OCUR nusbers vs the 
associated value (ist is created for each tevet 88 
entry of the DATA DIVISION. 


he When a MONITORed datasnase is seen» its OCUR is Looked 
| up in the sonitor table and the manttor address is 
posted to that entry. 7 


S.- When a MONITOR tabel List element is encountered» the 
symbol to be printed is provided as a non-numeric 
fiterat following that token. | 


66 When a condition“name is referenceds the parenthesized 
text that is equivatent to the desired test is provided 
froa the condition-narge table. Note: The parentheses 
are necessary in the case where the condition-name is 
negated. 


DYNAMIC MEMORY ~ 


The MONITOR syubot tables» the path table and the condition-nane 
tabte are aaintained in dynaszic seaory. If they can not be 
entirely containeds an error nessage is issued with a request to 
recogpile using sore serory. | 
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MONITORed data-nases 


LABEL -START7°7-~-> 
MONITORed Labels 


oc eens en coces ease oorees= NOTE: 
CeNAME~START----> 
condition-nanes | The CONDITION-NAME 
frow FILE SECTION | table say become two 
TABLES FOR PROGRAMS 
TS OS OR RE ROR SRN em specifying a DATA- 
FIRSETPTES*o oo" -> : BASE SECTION. 
path table fron 
DATA“BASE SECTION 
LAST.PTEceecers"> 
LeNAME START e277*> 
| condition-naaes froa | 
WORKING“STGRAGE SECTION 


MON-CON-PTR-----> 
avaitabte 


Table 2.1 Table Management in Dynaric Meaory 
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DAIA DENESION SYNTAX CHECK COATSYN) 


INPUT EXILES 
PCFILEs Contains a PCINFO entry for each 
| unique PC string that was 
declared. | | 
AONF ILE: Processed as aread aniy file up 
| to the PROCEDURE DIVISION. | 
QUTPUT EILES 
DNINFO: Contains a ONINFO entry for each 
| oo explicit data-nage excluding 
FILLER entries. This entry 
contains attributes such as 
USAGE» address» tength» nuaber of 
subscripts requireds BLANK WHEN 
ZERO» etc. 
SEGFILE: | ss Contains DATA DIVISION tokens» 


@eJee card token with associated 
address inforaation to be 
printeds values to which the 
WORKING-“STORAGE variables should 
be initialized» error ofr warning 
messages» etc. 


GENERAL EUNCTIONS 


i. 


Ze 


36 


Perfora ai detailed syntax check of the source progran 
up to the PROCEDURE OIVISION. 


Save the file attributes specified in the FILE-CONTROL 
paragraph. These attributes are held in the FD.INFO | 
table. | | 


Save the “SAME RECORD AREA .«-" attribute of the 
I-O-CONTROL paragraph in the FD-.INFO table. The 
muiti-file tape id and the auliti-filte pack id 
attributes are aiso saved in the FD.INFO table. 
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he Coabine the FO or SO attributes declared in the FILE 
SECTION with those in the FO.INFO table. The set of 
corgbined inforaation is used to create the file 
Parameter Block CFPB) for each file declared. 


5e Perfora ai detaited syntax check of each declared | 
datacnase and atlocate sensory for each entry. A CoP 
index CCOPX) its assigned at this time. These 
attributes» ¢@.9- USAGE» BLANK WHEN ZEROs number of 
subscripts» address» COPX» etc.» are saved in the 
ONINFO file and can be retrieved by using the data-nase 
OCUR nunber as the key. 


6- Parse the “VALUE IS ...* clause of the WORKING=STORAGE 
entries. A token for initializing memory at run tine 
is issued to the SEGFILE. 


Te Create the pseudo Data Dictionary for data 
segaent ation. | 


Be When the PROCEDURE DIVISION is founds gather data 
segnents» finatize segaent nuaber and displacenent> 
buitd the COP tables and begin the EXPLODE phase. | 


DATA SEGNENTATION 


When altocating storage for data» a pseudo Data Oictionary entry 
is buiit for each data segment candidates e.g.» each file record 
work area and each WORKING“STORAGE record that is not redefined. 
The non-contiguous items Ctlevel = 77) are assigned to data 
segsent zero. Speciat consideration is given to these itess in 
that data segment zero is always present and a presence check by 
the COBOL I[nteroreter is not necessary. 


then the PROCEDURE DIVISION is found» an attempt is made to 
gather data segments according to the DATA SEGMENT-LIMIT vatue 
specified in the O8JECT-“COMPUTER paragraph. . 


If DATA SEGMENT“LIMIT = zero then all data is assigned to data 
segrent zero and no further action is necessary. 


If DATA SEGMENT“LIMET is not = zero then each. fille record work 
area is assigned to a new segnent and the WORKING<-STORAGE records 
are gathered as follows: | 
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i. If a candidate is greater than DATA SEGMENT-LIMIT then 
assign it to a new sequent. 


2- If a candidate will fit with the candidates gathered so 
far Ceege» the caosbined size does not exceed OATA 
SEGMENT“LIMIT) then assign it to the current data 
segaent. 


36 If a candidate wilt not fit in the current segnent then 
begin gathering to a new segaent. 


This method tends to gather small candidates to a data segnent 
size that is close to the desired DATA SEGMENTLIMIT. 


DYNAMIC NENORY 
Pynanic memory contains several tables which are managed as 
foltous: 


be The PC.TAGLE is toaded from the PCFILE into the first 
part of DYN.WA at the beginning of DATSYN. 


2e  FODICLIST.HEAD contains a link to the first fite info 
| - entry CFOILINFO) tink Gist. There is one FO.INFO entry 
per SELECTed file. 


36 The Data Dictionary tabte is built at the end of DYN.WA 
and goes toward the FO.INFO table. There is one ODICT 


entry for each data seguent candidate. DDICTCO) is 
reserved for the tabel record work area of the USE 
procedures. | 


he If DYN.PTR ever meets DDICT.LIMIT then an error sessage 
is issued with a request to recompile using nore 
sewory -. 


5. At the beginning of EXPLODE the FDO.INFO Link list and 
the Data Oictionary tabie are repiaced by as many 
ONENEO file entries as witt fit. The overflow entries 
are retrieved on a randosa basis from the ONINFO file. 
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PC.TABLE Loaded 
fron PCFILE 
(93 bits/entry) 


FDI-LISTeHEAD ----> cooenm= DNI.TABLE.BASE 


FO.INFO CINK LIST 


| 
C359 BITS/ENTRY) + i 
C25 BIIS/FILE“LINIT) 3 
{ During EXPLODE: 
| | wacowanamceacceosee== | for DNINFO entries 
DYN.PTR eer cetetrro> § ©€96 bits/entry) 
ee | AVAICABLE — tas many as will fit 
a 
POON OS DADE DBABWMABDAOS® S 4 
DOICTLINIT e-°*77> | t 
DOICT TABLE a 
C47 BITSSENTRY) j 


DDICT.BASE e777"? "? <oore= DNITABLE-LIMIT 


Table 2-2 Table Management in Dynamic Mesory 


ae 
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EXPLODE 
INPUT EILES 
ADNF ILE: Ready to read the PROCEDURE 
DIVISION. 
QUIPUT EILES 
AONFILE: Token references are replaced by 


a copy of their attributes. 


GENERAL FUNCTIONS 


le 


20 


Read the ONINFO file and toad dynaaic memory with as 
many entries as it wilt hold. 


Expand tokens to include all the known attributes for 
that token: Ce Ge a data~name OCUR is used to index 
the ONINFO table» to which the PC attributes are added 
froa the PC.TABLE. Subscript factors and table bound 
information is issued at this tiae. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
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30 


4 
Se 


6. 


Expand spectat register references to look Like 
datasnane references (TALLY» TODAYS"“DATEs SWhe «e+ » 
SWS pe etcede 

Qutput token inforaation about declared FILE“LIMITS. 
Parse the USE sentence of a USE procedure. 


Parse SORT staterents with particular attention to the 
"USINGese*™ and “GIVING...” clauses. 
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PROCEDURE DIVISION SYNTAX CHECKING CPROSYN) 


INPUT EILES 
AONFILE: : Exploded tokens inctuding a copy 
of their attributes. : 
OUTPUT ELLES 
“ADNF ILE: | Contains tokens that have been 


syntax checked» rearrangeds and 
sirgplified for code generation. 


GENERAL FUNCTIONS 


i. 


Ze 


4. 


Perfora a detailed syntax check of each PROCEDURE 
DIVISION construct. Any error or warning messages 
issued are serged with prior sessages. 


Get operands and their subscripts or indexes and 
automaticatty stack then for use by each caller. 


 Optiaize Literal subscripts and indexes when the 


operand is put to the output file (See “SUBSCRIPT AND 
INDEX OPTEMIZATION® ). The look-ahead feature of the 
GET procedure can be invoked by setting a flag. in 
this modes tokens are presented to the catler one at a 
time untii the ftag is reset and normat operation 
resumes where it teft off. This mode is especiatty 
useful for optisaizing: @egese the ROUNDEDs SIZE ERROR. 
and sultiple receiving field requests are encoded as 
variations with the arithsetic verbs. 


Change statenents to a siaptler form: Cees 
corresponding pairs of a MOVE CORRESPONDING statement 
are put out as separate MOVE statements. — 


Transfora ar ithaetic expressions and Bootean 
expressions to their parenthesis free potish equivatent 
by applying the operator precedence rules. An atteapt 
is made to produce equivatent strings for arithmetic 
expressions and their arithsetic statenent 
counterparts. | 
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Se Suppty the inplied subject and relational operator to 
abbreviated conditions. | | 


DYNAMIC SEMORY 


The operand stack is saintained in dynamic memory. If it can not 
be entirely contained» an error sessage is issued with a request 
to recoapite with sore gmexory. 7 
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COOE GENERATOR CCOOESEN) 


IMNPUI EZLES 
ADNF ILE: Contains the PROCEOURE OIVISION 
tokens that have been siaptlified 
for code generation. 
OUTPUT EXILES 
SEGFILE: CODEGEN tokens are appended to 
the tokens produced by the prior 
phases. 
LABELTABLE? Contains explicit Label 


attributes and iapticit Label 
attributes (Ceeges branch points 


of a condition) used for 
generating the correct branch 
addresses. | 


GENERAL FUNCTIONS 


le 


Ze 


3. 


§e 


Se 
6< 


Check the DONT.GENERATE.CODE flag which is set by any 
prior phase that detected a syntax error. Ef it has 
been sets copy the tokens needed to prepare the error 
report onto the SEGFILE and begin the FIXUP phase. if 
no errors have been detected» | generate the required 
code. 


Generate code for the exponentiate intrinsic. This 
code is generated only when needed (for certain sinpte 
cases the code is emitted in-line). 


€wit code for FILE“LIMITS checking. 


Eait code to analyze the reason for a USE procedure 


being invoked. 
Generate code for the MONITOR intrinsic. 


Update the LABELTASLE file for each sections par agr aph- 
and iaplicit branch that is esitted. 
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DYNAMIC MEMORY 


A GET.TOKEN procedure automatically stacks the operands and their 
subscripts for use by each caller. The operand stack is 
maintained in dynanic neasory. if it can not ve entirety 
maintaineds an error message is issued with a request to 
recompile with aore sensory. 7 oe 
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ELXUP 
INPUT EXILES 
REPORT: Contains card taages needed for 


Listing. Not opened if no list 
speci fied and there are no 
errors. | 


SEGFILE: Contains various inforagation fron 
preceding phases which is used to 
Outild the CODEFILE and supply 
additional data for the listing. 


LABEL TABLE: Used to finalize branch 
| addresses. Not present if there 
are syntax errors. | 


QGuTeuT EILES 
CODEF ILE: Contains object prograa according 
to “cP specifications. — Not 
present if there are syntax 
errors. 


LINE: Used for tisting and cospiler 
debugging output. | | . 


GENERAL EUNCTIONS 


FIXUP has tuo outputs: COOEFILE and a listing. CODEFILE is not 
produced if there are syntax errors. FIXUP is sensitive to 
$“CARDS. A default S-CARD is the first token FIXUP sees (as part 
of the DATSYN tokens in the SEGFILE) untess the user has a $-~CARD 
at the front of his deck. The S-CARD gives “LIST* and "CONTROL" 
by defauit. 


rf the tist option is currently off and there is an error or 
warnings the appropriate source card is printed. | 


Everything FIXUP does is very specialized and detailed. it knows 
how the MCP expects a CODEFILE to be formatted» how the COBOL 
interpreter wants senory taid out for a COBOL programs and 
various other housekeeping duties. | 


abe. 
a 
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HOUSEKEEPING 


The COBOL Interpreter pernits six different container sizes to be 
variable length. CODEGEN detersines two of these: SEGB 
(specifies size for the data segment nusber portion of data 
addresses) and COPXB (size for COPX). FIXUP detersines four of 
these? | | | 


i. BoisPal Csize for branch addresses + 1). 

20 DISPBH Csize for data address diaptacemners 

3. (LENG Csize for data length). 

4e COPS Csize for COP entry := SEGB¢DISPBtLENB44). 


FIxue must also build the ALTER table. The digit size of an 
entry = (C84BDISPB43)7/4. | 


FILL DYNAMIC LABEL IAGLE AREA 


At the beginning of FIXUPs the dynaaic area available Cif any) is 
sequentiaity toaded with as sany LABELTABLE entries as will fit» 
each entry being resolved to its SADDR format (33 bits) on the 
fly. Overflow entries are retrieved randoaly in their original 
fora froma the LABELTABLE file and resolved by exception. 


BUILO DATA DICTEONARY 


FIXUP uses the ONDICTTABLE Cbuilt by DATSYN) in the SEGFILE to 
buitd the CODEFILE Data DOictionary. Data segment zero size 
reflects only the users data. Since the MCP expects data segaent 
zero to be a picture of what wilt be in aenorys FIXUP aust update 
DOSEGO to include: | 


Le EDIT table (8 characters). 
2. COP table. | 


3. Speciat registers (SW1..SW8s TALLY» ODATEx TIME» 
TODAYS“DATE» TODAYS-TINEs TODAYS“NANE). 
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he Constant pool (Cdatacnase MONITOR symbols» edit masks> 
transtation tables» FILE“LIMITS). 


S. Trash area Cinteraediate results). 

6. ALTER table Cif any). 

7. Stack. 
Data segaent portions of the CODEFILE are set to att 0 bits. 
This is done because upon the first access of a data segnent» the 


“HCP reads it off disk if it has been allocated space in the 
CODEF ILE. | 


BUILD TRANSLATION TABLES 


Either the ASCII-TO-EBCDIC and/or the EBCDIC-TO-ASCII tabte is 


created onty if $§$appropriate transiation instructions are 
generated. The table(s) is located as the tast part of the 
constant poot. : | 


PROCESS MERGE IOKENS FROM SEGFILE 


The onty valid token is TMEMYALUE. This is for initializing the 
constant pool portion of the CODEFILE to MONITOR data-name 
symbots and edit sasks. 


BUILD CODE OICTIONARY 


The Pseudo Code Dictionary (PCO) produced by CODEGEN contains a 
suanary of static code and nusber of variable Length containers 
for each tlogical program segaent. By now FIXUP has calcul ated 
the container sizes and asudtinplies these by the PCD nuabers = and 
adds the PCD static core to build the final Code Dictionary in 
the CODEFILE. 


In additions “narker®“ records are written on the SEGFILE. These 
teld the beginning CODEFILE disk sequent address for each logical 


prograa segsent. | | a 
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PROCESS DAISYN TOKENS 


The REPORT file is used to produce a listing Cif applicabdbie) and 


TCARDADR tokens are fetched to apply data addresses to the 
Risting. TMEMNVALUE tokens are processed to implement the “VALUE 
IS* clause. 


PROCESS CODEGEN TOKENS 


In order to align printed code and code addresses on the listing» 


CODEGEN tokens are processed seriatty. The user may have code 
segnentation emixed so that pieces of a togical programs segnent 
are scattered throughout the progran. | 


FIXUP emits code for the current program segment. If a new 
segnrent occurs FIXUP uses the “marker” records to remenber where 
the code for a seguent Left off on the CODEFILE. 


The LABELTABLE file is accessed whenever a TBACDR token is 


encountered. The routine LABEL.~FIXUP takes a LABELTABLE OCCUR. 
froa the token and uses it as an index into the LABELTABLE to 
finalize a tranch address. 


FILE-LEMITS: values ae set up by CODEGEN as TMEMVALUE tokens and 
are initialized on the CODEFILE at this point. 
CLEANUP 

1. Print the Code Dictionary. 

Ze Buitd the File Paraneter Blocks. 

36 Print the Data Dictionary. 

he Build and print the Path Dictionary (Data Management). 

Se Build and print the COP table. 

66 Build and print the cun structure. 

Te Finalize the Program Parameter Block. 


—6«~Be Budid and print the ALTER table. 
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Je Print the Programs Parameter Block. 


10. Print the suanary inforaation. 


mips 


ee 
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MONETOR STATEMENT 


The MONITOR statesent aust precede IDENTIFICATION DIVISION. 


Synt ax MONITOR <fi€lemname> CDEPENDING] (<data-name tist> 3: 
2 <tabel List>). 


The <Cabel List> aay consist of only “ALL? which iaplies every 
program Cabel. | 7 


Syabois for MONITORed data-nanes are put in data segment zero. 
This is because it is likety that a data-name willf be a receiving 
field more than once and this sethod saves carrying the symbols 
as a literal in the code seguents. 


Syabols for MONITORed prograrg tabels are set up as titerats in 
the code where the tabel explicitly occurs. 


A DATSYN routine CBUILD.COPS) is responsible for assigning a 
gsonitor buffer of 132 characters in data segment zero. It aiso 
builds a aonitor COP as COP(1] unless “NOCOP" is specified. 


At code segsgent zeroes displacement zeros a routine is enitted 
which censists of a M¥N»s COMMUNICATE» and XiT. This achieves a 
write on the user specified tine printer froa the saonitor buffer. 
The routine is entered after the monitor buffer has been set up 
at various points in the progras. Motivation for the routine is 
to save code space. 


MONETOR TOKENS 
@og: MONITOR PRINT CMASTER> XXX 2 PARLD.— 
MERGE INPUT MERGE OUTPUT 


MONITOR CTRESWD) MONITOR CTRESWO) 


PRINT CTWORD) PRINT CTWORD) 
MASTER CTWHON)D ° 
"MASTER CINNLIT) ° 
XXX . CTWHON) ° 
"XxX" CTNNLIT) ° 
PARY CTL MOND « 


BURROUGHS CORPORATION 
ie COMPUTER SYSTENS GROUP 
| SANTA BARBARA PLART 


“PARI™ CTANLIT) 


—DATSYN OUTPUT 


MONITOR CTRESWS) 


—PERTOD (TOOT) 


PARI 
"PARI® 


MASTER 
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CTXPAR) where the LABcZL appears 
CTNNLIT) 


CTWORD) with MONITOR LENGTH and 
MONITOR SYMBOL address 


PRINT CTFILEREC) with MONITOR buffer address 


@.g? MONITOR DEPENDING PRINT CAs Bs C = ALL). 


BURRGUGHS CORPORATION 
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MERGE INPUT 


MONITOR CTRESWD) 
DEPEND CTRESWDD 
PRINT CTWORD) 


A CTUMOND 
“a CTMNLIT) 
8 CTWMGN) 
-p° CTNNLIT) 
Cc | CTWHMON)D 
=C? CTNNLIT) 
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No indication of “ALL® because TNNLITs appear after each explicit. 


LABEL. 
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SUBSCRIPT AND INDEX OPTIMIZATION 


RULES EOR SUBSCRIPTS 


le 


Ze 


3e 


4. 


Literal subscripts cannot be signed. Thereforee they 


can not generate too tow an address. 


' The bound is the maxivunm digit displacement of the Last 


valid entry Cuhich is any Length and aay be in digits 
or characters). 


The interpreter checks each subscript for less than or 
equal zeraz if trues it generates an error. <After al 
gathering and aultiplying of subscripts is done» this 
vatue is checked against bounds and if tess than the 
bounds» it generates an error. | | 


If att subscripts for a data-cnane are titerals» PROSYN 
checks for bounds errors. Otheruises even though a 
Literal say be targer than the corresponding OCCURS 
value in the DATA OIVISION dectarations it is aot 


checked (Cbecauses for exanptles» the value of another 


subscript say offset ae walue and bring the totat. 
within bounds). | | | 


RULES EGR INDEXES 


1. 


Ze 


Dat a-naneC index * literal) The data-name address is 


optimized and the literal dropped. 


Dat a-nanet index - fiterat) : If the negative literal 
plus the data-name address are greater than zero» it is 
optinizeds otheruises it is not» since it is not known 
if the index will awake the finat address within bounds. 
Errors of this nature are normatly caught by = the 
interpreter. | | 
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24 
29 


Qa Fwd w= Om 


- 28 
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—GLOBAL-DOLLAR FORMAT 


RESERVED WORD FOR $ CARD 


LIst 

OQU BLE 
SUPPRESS 
SPEC 
CONTROL 
CODE 
ANSI 


PARSE 
DICT 
ONQUAL 
LQUAL 
MOIGE 
DATSYN 
EXPLODE 
PROSYN 
CODEGEN 
FIXUP 
DEBUG 


—ERRMESS 


nocoP 
REF 


TEME 
EXAMIKE 
LEISTP 


UNDEFINED 
RESERVED 


1=POUBLESO=SINGLE CDEFAULT) 


(vs- default 83500 COBOL which 
associates “ELSE* with SIZE ERROR 
clause and normat 1/0 AT END and 
INVALID KEY) 

CMONITOR) 

(MONITOR) 

CMONITOR) 

(MONITOR) 

CMONITOR ) 

CMONITOR) 

CMONITOR) 

CMONTITOR > 

CMONITOR ) 

CMONITOR >) 

(NO DEBUG yields no code for COBOL 
MONITOR or OUMP..-DEBUG is defautt) 
(gives tisting of aif COB80L errors) 


{produces MONITOR code for variables 
in COBOL MONITOR List and referenced 
as other than receiving fietd... 
@eJ9s IF A=6.) 


causes S*code to be generated for 
the EXAMINE verb instead of the 
S“operator. | | 
Cpre-listing and errors printed as 
found per phase) | 
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USE OF DYNAMIC 


Ie PARSE | | 
Ae RESERVED WORDS? approx. 16500 bits 
Be COPY .we-2 REPLACING A BY Beene 
le A requires 144(8*Length of a? bits. 
2- B requires: 
ae When 86 is a uord 14+(B8eLength of 8B) bits. 
b. When 8 is a quatified word. 
14¢C8eliength B+ 
14 *¢* (8sLeagth of each quatifier) ¢ 
22 for each IN/OF. 
ce hen 8 is a titerat 
22¢CB«length of 8). 
3e Links require 24 bits per weplacing i €i.@e» each 
A BY 8). 
Ce. MNEMONIC NAMES 
24+C8elength of MNEMONIC syabot) for each 
#16 bits for an end of List sarker 
If, DATA NAME QUALIFICATION 
Each explicit data-name requires 38 bits Ceaxiaua of 16383 
entries). 
TItl. LABEL QUALIFICATION 
Each explicit paragraph/section name requires 41 bits Cmax 
of 16383 entries). 
Maximum of 150 ALTERed GO TO paragraphs. 
I¥. MERGE 
Ae Condition nases expansion. 
Each 88 VALUE specified requires 33 bits in addition to the 
length of the VALUE character string itself. 
Add 53 bits scverhead. 
Be. MONITOR FUNCTION. 
Each data-naage sonitored requires 44 bits. 
Each label monitored requires 20 bits in addition to the. 
character string of the label itself. 


Ve DATSYN 
Ae PICTURES... 
Each untaque PICTURE Seances 93 bits. 
Be. FD*S. 
Each FD requires 295 bits. 
Ce DATA SEGMENTATION. 


Each group of declarations (tite record work areas» 77*S>» 01°S) 


wuhich are candidates for a data sequent requires 47 bits for 
teaporary pseudo Data Dictionary. 
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INITIALIZING GOPAR VALUES OF AN INDEPENDENT SEGMENT 


Associated with each independent segeent which contains an 
ALTERed GO TO paragraphe we wild define a "SYSTEM" GO TO 
paragraph. | | 


Associated with each such independent segaent at the beginning or 
end of the physicat segment will be a set of ALTER statements to 
initiatize the ALTERed GO T0 paragraphs of the segment to their | 
declared procedure-nanese. 


When transferring controt to such an independent segment (GO T0 
or PERFORM)» the “SYSTEM” G60 TO paragraph ts ALTERed to proceed 
to the desired procedure-nane and controt is passed to the 
initializing code for that segsaent. 


Notes: A GO T0 paragraph contained in a section whose 
priority is greater than 49 must not be ALTERed fron 
a section with a different priority. (Sections of 
priority > 49 have all theic ALTERs initialized when 
invoked.) | : 


The following exaapte shows the code generated for various 


 oranches to an independent segaent which contains ALTERed GO TO 


paragraphs. 


nin 


P3. 
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FIXED SECTION. 


Pl. | | 
PERFORM 12. 

ALTRCI0 +12) 

PERF (Kise CVERLAY) 
GO TO 13. 

ALTRCI0>13) 

BUN COVERLAY) 
P2. 

GO TO P4. 

GPARCP2) 


GO TO. 
GPARCP3) 
C. COMMCERROR) 
P&. | 
ALTER P3 TO 13. 
ALTROP36#A) 
BUNC+B) 
Ase ALTREIO+T3) 
BUNCOVERLAY) 
GO TO PleP3>I7 DEPENDING ON X. 


Be GOTOCCOPKXs 3+4#DePleP454C) 


BUN COVERLAY) 
D. 
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OVERLAY SECTION (50). 


Ii. 


12. 
13. 
14. 


iS. 
16. 


Iv. 
16. 


ALTRCL 4016) 
ALTRCI64E) 
GPARCIO? 


ALTER 14 TO 16. 
ALTRC 16616) 

ALTER 16 TO 16. 
ALTRC16018) 


PXITCKL) 


GO TO 16. 
GPARCI4) 


GO TO. 
GPARCI6) 
E.j COMMCERROR) 


BUNC4+NI) 
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INDEXED I-0 LMPLENENTATION 
GENERAL 
Indexed files consist of two physical fitess | 
ci) The data fite - contains records written to the file and is 
maintained in the order in which the records are written. 
(2) The tag file - contains the record key vaiue and the 


relative record nusber of its associated record in the data 
file. This file is ordered on the record key vatue. 


TAG ELLE EGRMAT 


The tag file record contains a key and a record pointer. The 
keys themseives are exact copies of the key field in the data 
fite. The file is blocked in order to fit as many file records 
into 180 bytes as possible. The nurmber of areas ailocated is 
equat to the nuaber of areas allocated to the data file. 


Notess 


le if the tag file record is greater than 180 bytes then 
records per btiock will be set to one (1). | | 


Ze Default biocking will be specified for the tag file. 
3. Duplicate keys or aftternate keys are not atlowed. 


Le The tag file aay not be a suiti-~pack fille. 
NEW CONTROL CARD OPTION 
Synt ax: 
$ CNG] RPGTAGS 


Function: 


The option must be specified prior to the FD of the 
indexed file requesting this option and wilt remain itn 
effect untit changed. The option can he reset or set by 
subsequent cantrot cards. | | 
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Notes: 


ie If RPGTAGS is specified then 


a) The record pointer size is 6 digits. 


b>) The tag file naning convention used for RPG 
indexed files is used. 


Ze If NO RPGTAGS is specified then 


a) The record pointer size is 8 digits. 


b) The COBOL tag file narning convention will be 
used (See tag file nane). 


3. The defautt for this $ option is NO RPGTAGS. 


The word ° 
the tag fi 


DATA FILE 
INTERNAL 
FILE NAME 


FILE! 
FILE2 
FILES 
FILES 


FILES 
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JAG EILE NAME. 


TAG" is prefixed to the internal and externat names of 


fe as follows: 
TAG FILE DATA FILE TAG FILE TAG FILE 
INTERNAL EXTERNAL EXTERNAL EXTERNAL 


FILE NAME FILE NAME NAME CDOEFAULT) NAMEC SRPGTAGS) 


CEP GED RED CEE EE ei a <a EP CRG CN ARP GCS CTD ND AND | EELS SEE EG CN AERLES EED ELD IG ATES SERED EUIALE SO AL SID ED ADD A CTD VOYAGES OED ND AD LIED CREED IND 


TAGF ILEL A/6 TAGA/8 A/TAGB 
TAGF ILE2 FILE2 TAGFILE2 FILEZ/TAG 
TAGF ILE3 CCC/A/B CCC/TAGA/B CCC/A/TAGB 


TAGF ILES A/ ABCDEFGHI TAGA/ABCOEFGHE A/TAGASCDEFG 


TAGFILES A/B/ A/TAGBS | A/B/TAG 


ROUGH IAGLE EORMAT 


The Rough 


Table will be built for alt open statements except open 


of an output sequential access file and a sequential input fite 


for which 


Le 


Ze 


3e 


there is no start statement. 

The default size of the Rough Table is ten entries and 
may be overridden by a VALUE OF clause in the FD entry 
as foltlous: 

FD FILENAME 

WALUE CF CORE-INCEX IS INTEGER CHARACTERS toe 


The tabte consists of as many entries as wild fit into 
the space ailacated for the Rough Table. 


An entry consists of that record key which occupies the 


fast record of the file*s partition. 


br 
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EXAMPLE: ENTRY # CONTENTS 

i RECORD“KEYC1isP) 

2 RECORO“KEYC 2*P) 

3 RECORD“KE YC 3*P) 

N RECORD“KEVCN«P ) 


Where P = <EOF-Pointer> / <# of Rough Table Entries> 


Notes: 


le «If P = 0 then set P = 1 -~in this case the table is big 
enough to contain att of the keys of the file and the 
unused table entries are not included in the search. 


2e The Rough Table entries will be sequence checked as the 

, table is built in order to insure that the binary 
search algoritha will work -- if the table entries are 
not in sequences the prograa wild be terninated. 


ADDING RECORDS 10 INE EILE 


When the file is openeds its end-of-file pointer CEOF“POINTER) is 
obtained and NEW-EOF-POINTER is set te it. New records are 
appended to the end cf each file by adding one to NEW-EOF “POINTER 
and using that as the actuai key for both the data file and the 
taq file. | 


Note: When the file is closed or when a START statement is 


executed for the files and records have been added to the 
files then the tag file will be sorted. 


SEARCHING THE [AG EILE 


A dinary search is used ta tLocate the required key between 
successive entries in the Rough Table. The partition boundaries 
are then catculated by aubtiplying these entry numbers by 
partition-size. A binary search of the tag file is used to find 
the required key. If the key is not founds the added records or 
“add-on*s” are sertiatiy search for a *hit*™. | 
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In an effort to sininize the nugber of disk reads to locate a 
particular records the following optimizations are used: 


le The key is checked for equal against the one found in 
the Rough Table. If it ts equal» the tag record is. 
read directly and the panasy search of the partition is | 
not necessary. 


Ze If the partition found in the Rough Table contains the 
: EQF“RECORD» the argument is checked against the key of 


the EOQF-RECGRD. if it is greater» the add-on*s are 
searched and the binary search of this partition is not 
necessary. 


Ly When records are added to the files the highest - and 
lowest - key added are saved. The required key is 
range checked against these values. If it is outside 
the ranges the seriat search of the add-on’s is not 
necessary. 


Conclusions 


when records are to be added to the file>» they should be added 
beyoad the highest key of the file and they should be ordered. 


FILE“CONTROL ENTRY 
Syntax: 


SELECT <file-nane> 
ASSIGN TO <hardware-nage> | 
CRESERVE integer-i ALTERNATE AREA/AREAS) 
CORGANIZATION TS SEQUENTEAL/ZINDEXED) 
CACCESS MODE 15 SEQUENTIAL /RANDOM/DYNANIC 1} 
RECORD KEY {5 data-nanze-1t 
CFILE STATUS {S data-nase-2} 


‘Le Verify that RECORD KEY is specified for an indexed 
file. | | 


2- Mark organization as INDEXEO if specified. 


3e- If DYNAMIC is specified. veri fy that Pg anreatien is 
INDEXED and set FDY.ACCESS = 3- | 


ha Verify that data-name-l is of category atohanumeric and 
is within a record description entry of the selected 
file. | 


BURROUGHS CORPORATION 
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Je 


Ge 


Verify data-namse-2 to be a tworcharacter aiphanumeric 
iter. 


Save the RECORD KEY occur and the FILE STATUS occur in 


the FOI.TABLE. 


FILE STATUS ¥YALUES 


The following vatues for a file status data item have been 
estabtished by the COBOL standard: 


00 
10 


21 


22 
23 
30 


93 


3 


- £8 


6e 


6é 


88 


AeGeKe 
AT END 


Sequence error encountered on a WRITE | 
or the RECORD KEY vatue on a REWRITE was 
changed since the READ 


Duplicate key on WRITE would be created 
No record found when accessing this key 
Parity error 


Mismatch of key in tag file and data file. 
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CLOSE STATEMENT 


Syntax: No change Coptions specified also apply to the tag_ 
fited. 
Funct ion: 

Le Close the data file and aark it as closed 

20 Move 00 to file status 

30 Close the tag file 

4a If PURGE is not specified and additions were made then 


sort the added keys and nerge then with the existing 
tag file. 


DELETE STATEMENT 
Synt ax: 
OELETE <fite-naaze> RECORD 


CINVALID KEY <inperative-statement>]. 


i. Verify that INVALID KEY fs not specified for a file in 
SEQUENTIAL ACCESS sode. 


2e Verify that INVALID KEY is specified for a file for 
which there is no applicabie USE Procedure. 


Funct ion: 


This verb will not be inplemented until a way of parking 
the deteted data record is found ueiG? does not conflict 
with the RPG usage of the file. 
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Syntax: OPEN O-I is not allowed. 


Function: 
le Nove 00 to fite status. 


Ze Open the tag file and the data file and set OPEN-TYPE 
for subsequent checking in other verbs. 


QPEN-TYPE 
1 3: Opened input 
2 2: Gpened output 
3 3 Qpened 1-0 


3e- For OUTPUT SEQUENTIAL files initialize the last key _ 
watue to alt 20035 for subsequent sequence checking of 
the file as it is created. = ek _ 


he For INPUT or I-0 files build the Rough Table from the 
tag file-- this aay be ovitted for sequentiat files not 
referenced by a START statenent. 


Se For INPUT SEQUENTIAL files set the current record 
pointer to the first availabte record of the fite and 
if a REWRITE is specified for this file then clear 
LAST“I-O-WAS~A~READ-~ , | 


6 For INPUT or 1-0 DYNAMIC files set the current record 
 potater to the first available record of this file. 


Note: 


For OUTPUT SEQUENTIAL files the tag file and the data fille wilt 
be SEQUENTIAL access -~ in atl other cases they will be RANDOM 
acceSSe | | 


BURROUGHS 
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READ STATEMENT 


Syntax: 
FORMAT i: 


READ <fite 
CAT END 


FORMAT 2: 


READ <file 
CKEY I5 
CINVALIO 


Le 
Ze 


3. 


Function: 
Le 
Ze 


ae 


b. 


Ca 


-name> (NEXT) RECORD C INTO <identifier>! 
<isperative-statenent>! 


“name> RECORD CINTO <identifier>] 
<data-nane>) 
KEY SUnperstewerstarerenre: 


Verify datacnasze to be that which was specified in 
RECORD KEY chause for this file (note that this phrase 
is redundant because alternate keys are not allowed). 


Verify that NEXT is specified for SEQUENTEAL or OYNAMIC 
files only. | 


Verify that INVALID KEY or AT END is specified if no 


applicable USE Procedure is specified. | 


Move 00 to file status. 
For FORMAT & READ (Sequential Accessing): 


If any records have been added to the file since it 
was opened then sort the tag file. 


$et the current record pointer to the next available 
record in the file. 


if E€0F is encountered move 10 to file statuses» and 
execute the AT END statement or the appticabte USE 
Procedure. : 


If EQF is not encountereds then read the record. If 
a REWRITE is specified for this files then set 
LAST" I-O-WAS"ATREAD and save the record key value for 
subsequent checking in REWRITE. If the keys do not 
match» sove 93 toa file status and execute the INVALID 
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KEY statenent or the applicable USE Procedure. 


36 For a FORMAT 2 READ CRandom Accessing): 


ae Using the record key as an arguments search the tag 
file for an equal vatue. 


b. If feund then set the current record pointer to the 
corresponding record and supply that record in the 
record work area and verify that the proper record 
was read to insure file integrity. If the keys do 
not satch sove 93 toa fite status and execute the 
INVALIO KEY statement or the appticable USE 
Procedure. 


Ce [If not found sove 23 to file status and execute the. 
INVALID KEY statenent or the appticable USE 
Procedure. 


Syntax: 


REWRITE <record-name> (FROM <identifier>] 
CINVALTO KEY <iaperative-statesent>] 
le Verify <record-naae> to be in an indexed file. 


Ze Verify that the INVALID KEY phrase is specified if no 
applicabte USE Procedure is specified. | 


Syntax: 
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Function: 

i. Verify that the file was opened I-0. 

Ze Move 00 to file status. 

3e For SEQUENTIAL files: 

@e If CLAST“I“O“WAS“ATREAD and the record key vatue 
equats that of the last key read then write the 
record and clear LAST“I~O-WAS-AWREAD. 

be. If not LAST“I*0-HAS“AMREAD or the record key value is 
not equat to that of the tast record reads then sove 
21 to file status and execute the I[NVALID KEY 
stateszent or the applicable USE Procedure. 

&e For RANDCM and OYNAMIC files: 

ae If the record key is not equal to any record key of 
the files then aove 23 to file status and execute the 
GNVALIO KEY  # statesent or the applicable USE 
Procedure. | ys | 

De If the record key is equat to a record of the file. 
then write the record. | 


START <file-nagze> CKEY %="/*>*/NOT "<" <datasnane>] 
CINVALID KEY <iaperative-statesent>! 


t. 


Ze 


3e 


&e 


Function: 


Verify that file-nase is an indexed fite with 
SEQUENTIAL or OYNANIC access. 


Verify that the INVALID KEY chrase is specified» if no 
applicable USE Procedure is specified. 


Verify that data-nane is that which was specified in 
the RECORD KEY clause for this file. 


If the KEY clause is not specified» then "=" is the 
assumed operator and data~name is the record key. 
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le Verify that the file is not opened output. 

2e If the file is not SEQUENTIAL» and records have been 
added since the file was opened» then sort the tag 
file. 

3 Move 00 to the file status. 

& « Clear LAST+I*O“NAS“APREAD for ai SEQUENTIAL file for 
which a REWRITE is specified. : | 

5. Comparison of unmequat tength iteas presumes the longer 
field to be truncated to make then equal Length. — 

6- The current record pointer is positioned to the first 
togicat record in the file whose key satisfies the 
coaparison. | | 

Te if the couparison is not satisfied by any record in the 


filer then rgove 23 to file status and execute the 


tnvalid key staterent» or the applicable USE Procedure. 
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! USE STATENENT 

: «Syntax: 


USE AFTER STANDARD ERROR/EXCEPTION PROCEDURE | | 
ON INPUT /OUTPUT /1~0/<file-nane-1> C<fitle-name-2>}] «ec o« 


Funct ion? 


le The designated procedures are executed after cosapleting 
the standard I[-0 error routines ofr when an AT END or 
INVALID KEY condition occurs and the phrase is not 
specified for the [-0 statement. 


MRITE STATENENT 


Syntax: 


WRETE <record-naae> (FROM <identifier>] 
CINVALIO KEY <iaperative statenent>] 


le Verify that the INVALID KEY phrase is specified if no 
applicabie USE Procedure is specified. 


Function: 


1. Move 00 to file status. 


Ze For SEQUENTIAL files: 
ae Verify that the file is not opened 1-0 


b. if the record key value is greater than that of the 
previous record writtens then write this record. 


ce If the record key vatue is not greater than the vatue 
of the previous record written» then sove 21 to file 
Status» and execute the INVALID KEY statement or the 
applicable USE Procedure. | | 


*. Bs If the record key value is not equait to that of any 
record in the file» then write the record. 
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4. if the record key value is equal to that of a record in 
the file then move 22 to file status and execute the 
INVALIO KEY statement or the applicable USE Procedure. 
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iancace FILE MODEL 


The following COBOL program was written in order to simut ate the 
functions required to process indexed files. This program is the 
modet for the code generated by the compiler of each of those 
functions. A@t occurrences of SRPGTAGS start in coturmn 73 on a 
compiter tisting. They are shown as ZSRPGTAGS in the Srempre due 
to space restrictions. 


G000SOSSUPPRESS 


pe 


OOOCOGOSNERGE 
000100 MONITOR PRINT 
000200  ¢ 
000300 ; 
000400 de | 
QO0K 508 Meee eek REEREREERRER ERED EEE REREEREEEEEE ERE REEEEEREEEERERE ERED ED 
000455« | # 
000460* NOTE - IF SRPGTAGS SPECIFIED> ITEMS SO FLAGGED all 
0004652 | IN CC 73 ARE 6 DIGITS LONG INSTEAD OF 8. HOKAY? * 
000470« * 
oT adalat ca old alll ca haa lace al 
000500 IDENTIFICATION OLVISTION. 
000600 ENVIRONMENT OFVISTON. 
000700 CONFIGURATION SECTION. 
000800 INPUT-OUTPUT SECTION. 
000900 FILE-CONTROL. 
001000 SELECT PRINT ASSIGN TO PRINTER. 
0011090 SELECT TAGFILE ASSTGN TO DISK 
001200 ACCESS MGDE IS RANDOM 
001300 ACTUAL KEY IS Y¥eREC-NO. 
001400 SELECT GATAFILE ASSIGN TO DISK 
001500 ACCESS MODE I35 RANDOM 
001600 ACTUAL KEY IS D-REC~NO. 
001700 SELECT S-TAGFILE ASSIGN TO DISK. 
001800 SELECT S-DATAFILE ASSIGN TO DISK. 
001900 SELECT SO-TAGFILE ASSIGN TO SORT DISK. 
002000 I-O-CONTROL. 
002800 DATA OIVISION. 
002260 FILE SECTION. 
002300 FD PRENT LABEL RECORDS ARE OMITTED. 
002400 O14 LINE PIC X€132). | 
002500 FO DATAFILE 
002609 FILE CONTAINS 93000 RECORDS 
002700 BLOCK CONTAINS 18 RECORDS 
—=6 902800 VA OF 10 ES DATAFILE-ID. 
002900 O1 O-REC. 
003000 O02 D-KEY. 
003100 03 D-KEY-X PIC Xe. 
—- 903200 03 O-KEY~9 PIC 9(4). 
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003300 
003400 
003500 
003600 
003700 
003800 
003900 
004009 
004100 
004200 


004300 - 


004400. 


004500 


004600 
004700 
004800 
004900 
005000 
005100 
005200 
005300 
005400 
005500. 
005600 
005700 
005800 
005900 
006000 
006100 
006200 
006300 
006600 
006450 


006455 — 


006500. 
006600 
006700 
006800 
006900 
007000 
007050 
007100 
007200 


Q07250« 


007300 
007400* 
007450* 
007500 
007600 

007709 

007750 
007800 
007850 
007870« 
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02 FILLER PIC x¢5). 

FO TAGFILE 


FILE CONTAINS 11000 RECORDS 
BLOCK CONTAINS 20 RECORDS 
VA OF I0 IS TAGFILE-10. 

OL TREC. 

O02 FeKEY Pic x(5). 

O02 T-INDEX PIC 9(€8) COMP. ZSRPGTAGS 
O1 T°REC“COMP PIC 9€18) COMP. : 
FO S-TAGFILE 
FILE CONTAINS 11000 RECORDS 
BLOCK CCNTAENS 20 RECORDS 
VA OF ID IS TAGFILE-ID. 


O01 S“T-REC. 


02 S-T<KEY PIC XG). a a 
02 S“T-INCEX PIC 9¢€8) COMP. ; | YSRPGTAGS 
FD S“DATAFILE 
FILE CONTAINS 9000 RECORDS 
BLOCK CONTAINS 18 RECORDS 
VA OF ED IS DATAFILE-1D. 
OL S“0-REC. 
02 S“D-KEY. 
03 S“D-KEY=X PIC X. 
03 S“D-KEY-9 PIC 94). 
O02 FILLER PIC XC5). 
SD SO-TAGFILE 
FILE CONTAINS 11000 RECORDS 
®LOCK CONTAINS 20 RECORDS. 


Ol SD-REC. 
O02 SO-KEY PIC XC5). | 
O02 SD-INDEX PIC 9¢€8) COMP. | ZSRPGTAGS 
WORK ENG“STORAGE SECTION. 
Ol DUAMY. | | 
| 03 DONT-COUNT-THIS PC 9 COMP. 
03 OPEN-TYPE PIC 9 COMP. | 
88 OPENED-INPUT WA 1. 
88 OPENED-GUTPUT VA 2. 
88 OPENED-1-0 VA 3. 
03 HALF PIC 9(€10) COMP. 
O03 AVERAGE REDEFENES HALF COMP. 
05 FILLER PIC 9. 
05 T-REC-NO PIC 9(8). 
05 FILLER PIC 9. 


THE FOLLOWING ITS NEEDED ONLY FOR SEQUENTIAL FILES 
FOR WHICH A REWRITE 1S SPECIFIEDs 
BUT IS INCLUDED IN STORAGE ALLOCATED ANYWAY. 


O3 LCAST“I*0°WAS“A“READ“V PIC 9 cone. 
8& A a i a VA 1. , 


IN ACTUAL CODE» TAG RECORD AREA STARTS HERE WITH TAG-KEYS, 
CTINDEX £S NEEDED ONLY IN MODEL.) 
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007900 OL D-REC-NO PIC 9€8) COMP. 

007920* 


007950* THE FOLLOWING IS NEEDED ONLY FOR SEQUENTIAL FILE 
008000« OR DYNAMIC FILE WITH READ...NEXT? 


008020« 

008050 O12 PRIOR-KEY PIC X(5). 

008100 O01 PRIOR“KEY-COMP REDEFINES PRIOR-KEY PIC 9€10) COMP. 

008200 
008250« THE FOLLOWING ARE NOT REQUIRED FOR SEQ FILES WITHOUT START. 
008300 

008400 01 HI PIC 9(8) COMP. | XSRPGTAGS 
008500 01 £0 PIC 9¢8) COMP. -ZSRPGTAGS 
008600 Of RT-MAX Pic 9€8) COMP. ZERPGTAGS 
008700 O1 RI-INCREMENT PIC 9(€8) COMP. ZSRPGTAGS 
008800 01 EOF-POINTER PIC 9€8) CONP. XSRPGTAGS 
(008900 O1 NEW-EOF-PCINTER PIC 9(8) COMP. XSRPGTAGS 
008950 O21 SAVE-T-REC-NO PIC 9(8) COMP. XSRPGTAGS 
009000 OL ARGUMENT PIC X(5). | 

009100 O1 EQF-KEY PIC X(5). 


009200 01 KEYS-ADDED COMP. 

009300 O02 HI“KEY"ADODED PIC 9(10). 

009400 O02 LCOWWKEY-AOODED PIC 9€10). 

009500 O21 HIGHEST“LOWEST-KEYS REDEFINES KEYS“ADDED. 
009600 O02 MHIGHEST“-KEY-ADDEO PIC X{5). 
—6009700 O2 LOWEST“KEY-ADOED PIC X(5). 

009809 Of ROUGH-TABLE. 


009900 02 RT-KEY PIc X(5) OC 1000. 
009950 : 
010000" THE # OF ROUGH-TAGLE ENTRIES {S A COMPILE-TIME CONSTANT. 
010100 Of RI-ENTRIES PIC 9(6) COMP. 

(0101208 
010150« LAST“RI-KEY IS A REUSABLE WORK AREA IN ACTUAL CODE. 
010200 01 LAST-RT~KEY PIC x5). 

010300 Of LAST-RI-KEY-COMP REDEFINES LAST-RI-KEY PIC 9€10) COMP. 
010320« 

-010350« USER DATA STARTS HERE: 

O1L0370% | 
010400 01 FILE-STATUS PIC 99. 
010450«. 

010500 01 OATAFILE-10. 

(010600 02 FILLER PIC XC10) VA SPACES. 

O10700 02 D-F IO PIC XC10) PIC XC10). 
O20800 02 FILLER | PIC XC10) ¥A SPACES. 

010900 02 TAGFILE-1D. 

011000 02 FILLER — PIC XC10) VA SPACES. — 
011050 02 FILLER PIC XC3) VA *TAG™. XSRPGTAGS 
011100 02 I{-FID PIC XC€7). 

021200 02 FILLER PIC XCLO) VA SPACES. 
OLL250eseeennes NOTE? IF SRPGTAGS» "TAG" APPEARS IN FIO INSTEAD OF MF ID 
011300 Of FOUND PIC 9(€4) COMP. 
011400 01 NOT-FOUND PIC 9(4&) COMP. 

011500 O01 DISK-READS PIC 9(8) CONP. 

011600 O1 SEED PIC 9C18) COMP VA 55744210 3449672004. 


OL2700 Of RANDOM“KEY REDEFINES SEED PIC 9¢4) COMP. 
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012400 
0712500 


011800 01 SQ PIC 9€36) COMP. 
021900 Of SEED-SQ REOEFINES SQ COMP. 
-012000 02 FILLER PIC 9(18). 
012100 02 MED PIC 918). 

012200 02 FILLER PIC 9€18). 

012250 7 

012300 PROCEDURE DIVESION. 


DECLARATIVES. 
PARITY~“ERROR SECTION. 


012600 USE AFTER STANDARD ERROR PROCEDURE ON TAGFILE OATAFILE 
012700 S“TAGFILE S-DATAFILE. 
012800 Pt. 
012900 MOVE 30 TO FILE-STATUS. 
013000 END DECLARATIVES. 
013050 | } 
OL3100 STARTP. 
(0132008VOID 027500 
027600 SORTER. 
027700 | SORT SO-TAGFILE 
027800 ON ASCENDING KEY SO-KEY 
027900 USING TAGFILE 
028000 GIVING TAGFILE WITH LOCK. 
028050 | 
028100 OPEN-INPUT. 
028200 OPEN INPUT TAGFILE. 
028300 MOVE 1 TO OPEN-TYPE. | 
028400 MOVE 0 TO FILE-STATUS. 
028600* 
026700* THE FOLLOWING MAY BE OMITTED FOR SEQUENTIAL FILES 
028800* UNLESS REFERENCED BY A START STATEMENT 
028900 
029000 PERFORM BUILO-ROUGH-T ABLE. 
029100 | 
029200 THE FOLLOWENG 15 NEEDED FOR SEQ FILES OR DYNAMIC WITH READ... 
029300« | | 
029400 MOVE 0 TO T-REC-NO. 
029500« 
029600 OPEN INPUT DATAFILE. 
029650 | 
029700 OPEN-I-0. 
(029750 - OPEN 1-0 TAGFILE. 
029800 MOVE 3 TO OPEN-TYPE. 
029900 | MOVE 0 TO FILE-STATUS. 
0299108 
029920* THE FOLLOWING MAY BE ONTTTED FOR SEQ FILES 
029930* UNLESS REFERENCED BY A START STATEMENT. 
0299408 | 
029950 PERFORM BUILO-ROUGH-T ABLE. 
030000 2 | | 
030100* THE FOLLOWING IS NEEDED FOR SEQ FILES OR DYNAMIC READ...NEXI 
030200 | | | : 
030300 MOVE 0 TO T-REC-NO. 
030700 MOVE 0 TO PRIOR-KEY-COMP. 
030800 | 
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030900 THE FOLLOWING IS NEEDED FOR SEQ FILES WITH REWRITE 
031000« 
031100 MOVE 0 TO LAST+I-~O“WAS“A-READ-¥. 
031150 | 
031200*« THE FOLLOWING IS NEEDED FOR SEQ FILES WITH START 
031250* , | 
031300 MOVE ALL QFFQ2 TO LOW-KEY-ADDEO. 
031350 MOVE 0 TO HI“KEY-ADDED. 
031400 3 
031500 OPEN {-0 DATAFILE. 
~—603:1550 8 
031600 OPEN-OUTPUT-SEQUENTIAL. 
031650 OPEN DUTPUT S-TAGFILE. 
031700. MOVE 2 T0 OGPEN-TYPE. 
031800. MOVE O TO FILE-STATUS. 
031900 = MOVE 0 TO PREGR-KEY-COMP. 
032000 “MOVE O TO S-T-INDEX. | 
032100 OPEN OUTPUT S-DATAFILE. 
032200 
032300 OPEN-OUTPUT. 
032400 OPEN O-I TAGFILE. 
032500 MOVE 2 T0 OPEN-TYPE. 
032600 MOVE 0 TO FILE-STATUS. 
032650 MOVE 0 TO EGF-POINTER. 
032700 MOVE 0 TQ NEW-EOF-POINTER. 
' 032809 MOVE ALL @FFQ2 TC LOW- REY=AODED 
032900 MOVE 0.1710 HI-KEY-ADDEO. 
033009 OPEN OQUEPUT DATAFILE. | 
033050 | | | | 
033100 CLOSE-SEQUENTIAL-“GUTPUT-“RELEAS. 
033200 CLOSE S“OATAFILE WITH RELEASE. 
033300 CLOSE S“TAGFILE WITH RELEASE. 
033400 MOVE O TO FILE-STATUS. 
033450 
033500 CLOSE-WITH“RELEASE. 
033600 CLOSE OATAFILE WITH RELEASE. 
033700 CLOSE TAGFILE WITH RELEASE. 
033800 MOVE 0 TO FILE-STATUS. 
033850* | | | 7 | 
033900 THE FOLLOWING NEEDED IF WRITE USEO ANDO NOT CLOSED PURGE. 
0339502 | 
034000 IF EQF-POINTER NOT = NEW-ECOF-POINTER PERFORM SORTER. 
034050* | 
034100* THE FOLLOWING NEEDED FOR SIMULATION ONLY 
034200« | 
034300 | MOVE NEW-EOF“POINTER T0 EQF-POINTER. 
0344002 | 
034500 READ-TAGFILE. 
034600 REAOQ TAGFILE. 
034650 


034700 BUILD-ROUGH-TABLE SECTION. 

034800 GET“EGF<-POINTER. 

034900= | 
035000 THE EQF<-POINTER IS OBTAINED FROM AN 
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035100 
035200* 
035250 
035300 
035400 
035500 


035600 


0357008 
035800 
035900 
036000 
036100 
036200 
036300 


036400 
036500 
036600 


036700 
0368090 


(036900 


037000 
037100 
037200 
037300 
037400 
037500 
037600 
037700 
037800 
037900 
038000 
038050 
038100 
038150 
038200 
038300 
038400 
038500 
038600 
038700 
038800 


(038900 
039000 


039100 
039200 
039300 
039400 
039500 
039600 
039700 
039800 


—6©- 039900 


040000 
040100 
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ACCESS .FILESINFORMATION COMMUNICATE EXECUTED HERE 


FF EOF-POINTER = 0 &6O TO REAL~XIT. 
MOVE EOF“POINTER TO NEWWEQF°POINTER. | 
COMPUTE RI“INCREMENT = CEOQF“POINTER ¢ RI-ENTRIES - 1) / 
RT-ENTRIES. 


CHECK FOR EOQF“POINTER < # ROUGH TABLE ENTRIES 


IF RT-INCREMENT = 0 
MOVE L TO RTI NCREMENT. 
MOVE 0 TO LAST-RT-KEY-COMP. 
MOVE 0 TO RI-MAX. 7 
MOVE 0 TQ T<REC-NQG. 
AOD RT“ENCREWENT TO T<REC-NO. 
IF T-REC“-NO > EQF~POINTER 
MOVE 0 TO T-REC-NO 
G0 TO RI-EXITT. 
ADD { TO RT-MAX. 
PERF OR# REAO-TAGFILE. 
SEQUENCE “CHECK. 
IF TeKEY NOT > LAST“RI“KEY AND RI“-MAX NOT = 1 
DISPLAY “TAGFILE SEQUENCE ERROR - 05 OR DP” 
GO TO SEQUENCE-CHECK. 
MOVE TFeKEY TO LASTORI-KEY. 
MOVE T-KEY TO RI“KEYCRTI“MAX). 
GO TO LOOP. 
RT-EXIT. 
MOVE ECF“POINTER TO T-REC-NO. 
PERFORM READ“TAGFILE. 
MOVE T-KEY 70 EOF-KEY. 
REAL OXEIT. 


BINARY“SEARCH SECTION. 
Bi. 
If EQF“POINTER = 0 
MOVE 0 TQ T-REC-COMP 
GO TO CHECK~-ADDITIONS. 
MOVE 0 TO LO. 
MOVE RI“-MAX TO HI. 
AGAIN. | | 
COMPUTE HALF = 5 * CHI * 10). 
TF LC = T-REC-NO | 
60 TO SEARCH-DISK. | 
IF ARGUMENT NOT > RI“KEVCT“REC-NO) 
MOVE T-REC“NO TO HI 
GO TO AGAIN. 
MOVE T-REC“NO TO LO. 
GO TO AGAIN. 
SEARCH<-OISK. , 
TF ARGUMENT = RI“KEYCHI)D | | 
COMPUTE T-REC“NO = HI * RI“ENCREMENT 
GO TO READ“THE-TAG-FILE. 
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040200 
040300 
040400 
040500 
040600 
040700 
040600 
040900 
041000 
041100 
041200 


COMPUTE tO = LO « RT-INCREMENT. 
COMPUTE HY = HI «& RT-INCREMENT. 
IF HE NOT > EDF-POINTER 

GO TO SEARCH-OISK-LOOP. 
TF ARGUMENT > EQF<-KEY 

60 TO CHECK~ADOITIONS. 
ADD £t EGF-POINTER GIVING HI. 


SEARCHDOISK-t 00P. 


1€ &0 *-t NOT < HI 
GO TO CHECK-ADDITIONS. 
COMPUTE HALF = 5 * (LO ¢ HI). 


041300 READ“THE-TAG“FILE. 


041400 
041500 
041600 
041700* 
941800* 


041900% — 


. 042000 


0421002 | 


042200 
042300 
042400 
042500 
042600 
042700 
042800 
042900 
043000 
043100 
043200 
043300 
043400 
043500 
043600 
043700 
043800 
043900 
064000« 
044100 
044200* 
044300 


044400* . 


044500 
044600 


IF T“REC-NO = 0 


GO TO NOT-FOUND. 


PERFORM READ-TAGFILE. 


ADD 1 TC OLSK-REAOS. 


TF ARGUMENT = I-KEY 
GO T0 FOUNC. 
IF ARGUMENT NOT > T-KEY 
MOVE FT-REC“-NO TO HI 
GO T0 SEARCH“OISK-LOOP. 
MOVE T-REC-NO TO LO. 
GO TO SEARCH-DISK-LOOP. 


CHE CK-ADODITZONS. 


TF ARGUMENT > HIGHEST-KEY-ADDED 
GO TO NOT-FOUND.. 

If ARGUMENT < LOWEST-KEY-ADOED 
GO TO NOT-F OUND. 

NOVE EQF“POINTER TQ T-REC-NO. 


SEARCH“ADDITIGNS. 


ADD 1 TO T-REC-NO. 

If TREC“NO > NEW-EOF-POINTER 
GO TO NOT-FOUND. 

PERFORM READ-TAGFILE. 
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THE FOLLOWING IS NEEDED FOR DEBUGGING 


THE FOLLOWING IS NEEDED FOR DEBUGGING 


ADD 1 TC OISK~READS. 


IF T°KEY NOT = ARGUMENT 
GO TO SEARCH-ADDITIONS. 


044700 FOUND. 


044600 
044900" 
045000 
045100 


045200* 


045300 


THE FOLLOWING NEEDED FOR DEBUGGING | 


AOD 1 TO FOUND. 
GO TG SEARCH-EXIT. 


045400 NOT-FOUND. 


045500* 
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045690* THE FOLLOWING NEEDED FOR DEBUGGING 
045700« : 
045800 ADD 1 TO NOT-f OUND. 
045900 | 
046000 MOVE 0 TG T-REC-NO. 
046100 SEARCH-EXIT. 
046150 
046200 SORT-THE -TAGFILE SECTION. 
046300 Si. 
046400 CLOSE TAGFILE LOCK. 
046500 PERFORM SORTER. 
046510 
046520* THE FOLLOWING IS NEEDED FOR SIMULATION ONLY. 
046530 
046540 MOVE NEW-EOF-POINTER TO EOF-POINTER. 
046550 | | 
046600 OPEN 1-0 TAGFILE. 
046650 PERF ORM BUILD-ROUGH~TABLE- 
046700 
046909 READ“SEQUENTIAL SECTION. 
047000 Ri. | 
047050 MOVE O TCO FILE“STATUS. 
047100* | | 
047200 THE FOLLOWING MAY BE OMETTED FOR SEQ FILES OR NO WRITES. 
047300% a 
0474600 If EQF-POINTER = NEW-EQF-POINTER GO YO SETUP. 
047410 MOVE SAWVE-T“-REC“-N0 TO T-REC-NO. 
047420 READ TAGFILE. 
047430 MO¥E T-KEY 10 ARGUMENT. 
047450 PERFORM SORT-THE-TAGF ILE 
047500 PERFORM BINARY-“SEARCH. 
047600* 
047700 SETUP. 
047900 ADD 8 TO T-REC-NO. 
046000 READ TAGFILE AT END 
048100 MOVE 10 TO FILE“STATUS 
048200 SUBTRACT 12 FROM T-REC-ND 
048300 GO TO RI-EXIT. 
0483502 
048400* THE FOLLOWING MOVE NECESSARY ONLY IN MODEL - 
(0484508 SAME FIELD IN ACTUAL CODE 
OSBHSOO canaanaananatzanenr 
048550 MOVE T-ENDEX TO O-REC~NO- 
OSBG0 NO aeananearennanenn 
048700 THE FOLLGWING IS NEEDED FOR SEQUENTIAL FILES 
048750 FOR WHICH A REWRITE 15 SPECIFIED | 
048800% 
048850 MOVE L TO LAST -I1-0-WAS“A-READ-¥. 
048900« | 
049000 READ DATVAFILE. 
049050 IF T-KEY NOT = O-KEY 
049100 MOVE 93 TO FILE“STATUS 
0491202 NOTE? SEE ALSO READ-RANOOM IF FILE“STATUS NOT PRESENT 
049150 


ELSE 
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049200 
049250 
049300 
049400 
069500 
049600 
049700 
049750 
049800 
049850 
049900 


RI-EXIT. 


PLANT 


READ-RANDOM SECTION. 


R2. 


050000 > 


050100 
050200 


* MOVE 


MOVE 0 
IF 


TO FILE-STATUS. 


OPENTYPE = 0 


MOVE O-KEY TO PRIOR-KEY. 


STOP “READ ON UNOPENED FILE - 


MOVE D-KEY TO 


PERFORM BENARY-SEARCH. 
IF T-REC“NO = 0 
MOVE 235 TO FILE“STATUS 
GO TO R2-EXIT. 


OCSOL5SOaeaecaaacacaankanne 


T-ENDEX 


OSOZ 50 cana aananaerakanat 


READ DATAFILE. 


050300 


050400 
050500 
950600 


(050700« 
050800 — 
050900 R2-EXIT. 


050950 
051000 
051100 


051150. 


0512200 


051300. 


051400 
051500 
051600 
051700 
051800 


051900 


052000 
052100 


052200. 


052300 


IF T-KEY NOT = O-KEY 


ARGUNENT. 


TG O-REC-NO. 


MOVE 93 TO FILE“STATUS. | 
TF FILE“STATUS NOT PRESENT DOO THIS INSTEAD: 


WRITE-SEQUENTIAL SECTION. 


052400 — 


052500 
052600 
052650 


MOVE 0 TO FILE-STATUS. 


IF OPENEO-I[-0 
STOP “WRITE ON A SEQUENTIAL {-0 FILE - DS OR op 
GO TO Wi. 

IF S-D-KEY NOT > PRIOR“KEY AND S-T-INDEX NOT = 0 


GO TO W-SEQr-EXIT. | 
MOVE S-D-KEY TO PRIOR-KEY. 
MOVE S-D-KEY TO S-T-KEY. 


ADD 1 TO ST-EINDEX ON SIZE ERROR 


TQ FILE“STATUS 
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DS OR OP. 


STOP “TAG FILE NOT SYNCHRONIZED WITH DATA FILE - 0S OR oF 


STGP “TAGFILE SIZE EXCEEDED - 05 OR OP 


TO W2. 


WRITE S-T-REC. 
WRITE S~D-REC. 


Wie 

MOVE 21 
W2- 

&0 
WeSEQrEKIT. 


052700 WRITE"RANOON SECTION. 


052750 
052800 
052850 
052900 
052950 
052970 
053000 
053100 
053200 
053300 


Wi. 


wove 0 TO FILE-STATUS. 


IF OPEN-TYPE = 0 
STOP “WRITE ON UNOPENED FILE - DS OR DP. 


MOVE D-KEY 190 
MOVE T-REC-NO 
PERFORM BENARY-SEARCH. 


If T-REC“-NO NOT = 0 
MOWE 22 TO FILE“STATUS 


GO 10 W-RANDOM-EXIT. 


ARGUMENT. 
TO SAVE- 


T~REC-NO. 
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053400 MOVE O-KEY TO T-KEY. 
053600 ADD 1 TG NEW-EOF-POINTER ON SIZE ERROR 

053700 STOP “TAGFILE SIZE EXCEEDED - DS-OR OP* 

053800 60 TO “2. 

053900 MOVE NEW“EDOF-POINTER TO T-REC-NO> T-INDEX. 

054000 | | 

054100 WRITE F°REC. 


OS41L5 0 eeeneaaaenanneeane 


054200 


MOVE T-INDEX TO 0-REC-NO. 


ctheyY WS VIR CSE SESLTSCSSSLE ST TS 


054400 
654500 


(054600 
054700 


054750 
054800 
054850 
054900 
054950 
055000 
055100 


055200 | 


055300 
055400 
055800 
055900 
056000 
056600 
056700 


IF ARGUMENT < LOWEST-KEY-ADDED 
MOVE ARGUMENT TO LOWEST-KEY-ADDED. 
IF ARGUMENT > HIGHEST-KEY-AODED 
MOVE ARGUMENT TO HIGHEST-KEY-ADDED. 
WRITE D-REC. 
MOVE SAVE“T“REC-NO TO T-REC-NO. 
W-RANOON“EXIT. 


REWRITE-SEQUENTIAL SECTION. 
RE-1. 
IF NOT CPENED-I-0 
STOP "REWRITE ON A FILE NOT OPENED I-0 - DS OR DP@ 
GO 10 RE-1. 
MOVE 0 TO FILE-STATUS. 
IF NOT CLAST-I-O-WAS-A“READ AND D-KEY = PRIOR-KEY)D 
MOVE 21 TO FILE“-STATUS 
GO TO REWRITE-SEQ-EXIT. | 
MOVE 0 TO LAST“I-0-WAS“A-READ-V¥. 
WRITE O-REC. 


056800 © 


056850 
056660 


056900 


057000 


057100 
057200. 


057300 
057400 
057500 


057550 > 
057600 


057700 
057800 
057900 


REWRITE“SEQ-EXIT. 


REWRITE“RANDOM SECTION. 
RE“-1. 
IF NOT OPENED-I-0 
STOP “REWRITE ON A FILE NOT OPENED 1-0 - DS OR OP@ 
GO TQ RE-1. 
MOVE O TO FILE-STATUS. 
MOVE O-KEY TO ARGUMENT. 
MOVE T°“REC“-NO TO SAVE-T“REC-NO. 
PERFORM BENARY~SEARCH. 
IF T-REC-NO = 0 
MOVE 23 TO FILE-STATUS 
GO TO REWRITE-RANDOM-EXIT. 


O57950 eaeaanaakanzanhkar 


058000 


MOVE T“INDEX TO O-REC-NO. 


OS8O5SO xeacaankanakanaaant 


058100 
058150 
058200 
056250 
058300 


WRITE O-REC. 
MOVE SAVE“T“REC-NG TO T-REC-NO. 
REWRITE-RANCON-EXIT. 


START“SETUP SECTION. 


058400 Si. 
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058500 IF OPENED-OUTPUT OR OPEN-TYPE = 0 

056600 STOP “START ON FILE NOT OPENED INPUT 
058700 GO TO Si. 

058800« | | 
058900* THE FOLLOWING MAY BE OMETTED FOR SEQ FILES OR NO WRITES. 
059000« 
059100 IF EQF-P0INTER NOT = NEW-EOF-POINTER 
059200 PERFORM SORT-THE-TAGFILE. 

059300 

059400 MOVE O TO FILE-STATUS. 

059500 | | 
059600* THE FOLLOWING IS NEEDED FOR SEQUENTIAL FILES 
059700* FOR WHECH A REWRITE IS SPECIFIED 

059800* 

059900 MOVE 0 TO LAST-I-0-WAS-A-READ-¥. 

060000« 

060100 MOVE O“KEY TO ARGUMENT. 

060150 PERFORM BINARY-SEARCH. 

060200 

060300 START-EQL SECTION. 

060400 S1. 

060500 PERFORM START-SETUP. 

060600 iF T-REC-NO = 0 

(060700 MOVE 23 TO FILE-STATUS 

060800 MOVE EOF-POINTER TG T-REC-NO 

060900 GO TO START-EGL-EXIT. 

061000 SUBTRACT & FROM T-REC-NO. 

061100 START~EQL-EXIT. 

061250 

061200 START-NOT-LSS SECTION. 

061300 Si. 

061400 PERFORM START-SETUP. 

061500 IF T-REC-NO NOT = 0 

061600 GO TO ITS-EQL. 

061650 IF ARGUMENT > EOF-KEY GO TO INV-KEY. 
061700 COMPUTE HALF = 5 * (LO ¢ HID. 

061600 IF T-REC“NO < EOQF-POINTER 

061900 GO TO START-NOT-LSS~EXIT. 

062000 INV-KEY. 

062100 MOVE 23 TO FILE-STATUS- 

062200 MOVE EQF-POINTER TO T-REC-NO. 

062300 GO TO START“NOT-LSS-EXIT. 

062400 ITS~EaL. 

062500 SUBTRACT 1 FROM T-REC-NO. 

062600 START-NOT“LSS~EXIT. 

062650 

062700 START-GTR SECTION. 
062800 Si. 

062900 PERFORM START-SETUP. 

063000 IF T-REC“NO NOT = 0 

063050 GO TO ITS-EQL-2. 

063100 IF ARGUMENT > EOF-KEY GO TO INV-KEY-2. 
063150 ‘COMPUTE HALF = 5S * CHI # £0). 

063200 IF T-REC-NO < EDF-POINTER 
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063300 GO TO START“GTR-EXIT. 


063400 INV-KEY-2. | 
063500 MOVE 23 TO FILE-STATUS. 
063600 MOVE EQF-POINTER TO T-REC-ND. 
063700 GO TO START=GTR-EXIT. 

063800 ITS-EQL-2. | 

064000 If T-REC“NO NOT < EOF-POINTER 
064100 GO TO INV-KEY-2. 


066500 START-GIR-EXIT. 
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DATA MANAGEMENT 


This portion of the specification docueents the Data Managenent 
section of the COBM& corpiler and is subddivided into sections 
which cencern the declarations processings and accessing of DH 
entries. A saapte prograa is included to support the discussion 
of data sanagesent. | 


DATA=HASE QECLARATIONS 


08 C<tlogicat database nase> OF 1 <data-base nane>. 


DATASET 


<tevet-nuaber> <dataset~nare> CORDEREO/RESTARTI DATA SET (<ODL #>). 


E<set-nawe> CRETRIEVAL] SET C<DDOL #>» AUTO) 
OF <dataset-nane> (€<D0L #>) | 
KEY IS/KEYS ARE <cogponent~nane~i >{»<coaponent-nage-2>].0e- « 


SUBSET 


—_ op <<. 7 


cheval sauabers <subset-nage> SET (<ODL £>>» MANUAL) 
OF <dataset-naze> (<DOL #>) 
CKEY IS/KEYS ARE <component<-nane~i>(»<conponent-nage-2>)...]}. 


FORMAL OF OOL-NUNBER 


The <ODL #> consists of a structure nuaber fotloned by the tiae 
and date when the dataset was created. The forrat for DDL-NUMBER 
is3 


~—6dSSS.0—lUHHSMMSSS MM/OD/YY 


This string of characters is encoded into @ 64-bit path 
dictionary entry by MERGE. | | 


OL PATH.DICT.FORMAT | BIT(64)>» 


‘02 LOCK.BIT BI¥Cid» 
02 MEDIA.S8ET BITC1L)» 
O02 BEEN.OPENED : BITCid, 


O2 EXPLICIT.OPEN BiTCLds 
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O2 FILLER BITCA)> 
02 STR NUMBER BIT(B)» 
O02 OM.TINE BITCL7 )» 
03 ON.HOUR BIT(S) > 
O3 ON.NIN BITC6)>» 
03 OM.SEC BITC6)> 
O2 ON.OATE BITC16)> 
03 DM.HONTH BITCH)» 
O03 DM.OAY BITCS)» 


03 DH.YEAR PITT)» 


‘(OMSTATUS REGISTER 


The D 


DM co 


PARSE 


MERGE 


EXPLO 


PARSE 


When 
foitoa 


NSTATUS REGISTER is six digits long and wilt be set by each 
maunicate. A value of zero indicates no exception. 


Adds DMNSTATUS to the reserved word tists and transt ates 
the syntax of OMSTATUS (<exception nase>) into 
COMSTATUS = <literal>). <exception-naame>s are reserved 
words only in this context. Each corresponds to an 
exception-nuabder <tliterat>. 


OMCATEGORY becowes a separate TRESWD temporarily. 
Assigns aenory in DSEGO. 


DE Expands. references to took tike a TWORD» and sets 
CONDITIONS.NAME flag so DMSTATUS will always be a full 
relation in PROSYN. This also prevents DHSTATUS fror 
being used outside a condition. 


For DMCATEGORY>» transfora to a normal TWORD» allowing 
direct access by any appropriate COS80L oper ation. 


the ODATA“BASE SECTION is declared» the coapiler does the 
ving: | | 7 


Verifies that it follows the FILE SECTION and precedes the > 
WORK ENG-STORAGE SECTION. | 


Gutputs a dummy TXON with level = 0 (Like WS“-SECTION) and 
symbol = “DATA-BASE* followed by the DB-PACKeID obtained 
feos the FPO of the tibrary file. ee . 
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Vhen 


then 


when 


Saves this OB8-SECTION.OCUR as a gtobat. 
DATABASE.SECTION.FLAG 2= 1 


Verifies that the DATABASE SECTION consists only of “01 
OS“NAME INVOKE 22." antries and "D8 -.." entries. 


D8 is declared» the coapiter: 


Saves the data~base nase. 


Outputs the data~base name as a TNNL IT. 
Outputs a TXDN. 


If present » outputs “OF" folloved by a data-base name as 8 


FNNLITe which effectively redefines the previous database 


name as <logical data-base nane>. 


INVOKE is dectareds the conpiter: 

Verifies DATAGASE~SECTION.FLAG = 1 and LEVEL = OL. 

Gpens #DATA“BASE/DATASET.NANE like a ccpy from ttbrary) 
where data-base is the first nine characters of the 
database nase. | 


Scans past the 01 dataset-nase of the source isage and 
substitutes the invoking dataset “nase. 


Marks the scanned source images with ”**. 
DATA SEY is dectareds the coapiler: 


Verifies DATAcBASE~SECTION.FLAG = 1 
Parses the DOL-NUMBER. 


Assigns an OCCUR to each key-nane where tevet <= IF 
*RETRIEVAL™ THEN 52 ELSE 51 | 


Marks component-nases as TWORD with “"DATA~BASE™ as a TQUAL.~ 


Checks for *RESTART® a "ORDERED" and sends it thru to 
Her gee | : 
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vhen SET is declared> the coapiter: 


Verifies DATABASE-SECTION.FLAG = 1 
Parses the DOL-NUMBER 

Levet =: 53 

Detetes the target dataset-nane 

parses the target DOL“NUMBER 

Gutputs the target component-nase as TWORD with "DATA-BASE* 
as TQUAL. | 


When end of DATA“BASE SECTION is founds OATABASE.SECTION.FLAG 2= 
0. 


When FEND/MHODIFY is specified» the coapiter outputs the 
coaponent-names af the selection expression with “DATA~BASE™ as 
TQUAL.~ 
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DICTIONARY PROCESSING 
No changes necessary for Data Managesent. 
QUALIFICATION RESOLUTION 
The following characteristics are exhibited: 
Iteas with tevels of 52» S20 oF 53 have scope only of 


theaselves. 


The DO.SECTION.GCUR includes att database iteas in its 


scope e 
Inhibits error reporting for a TWORD with the 
DB.SECTION-OCUR as its quatifier. If unidentified nase» 


then OCUR := 03 if insufficient quatifications then OCUR s= 
Last of the duplicates. | | | 


descriptions therefore the building of the 
CONDITION.WAMNE.TABLE does not conflict with the 
building of the PATH. INFO.TABLE. 


Note: No condition-names wilt be contained in a DATASET | 


hig avian ot Sia 
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DATASBASE SECTION PROCESSING 
Save the DB.PACK.I0 CINNLIT) to be used in DM.OPEN and DM.CLOSE. 
For each 01 dataset-nawe> INVOKE.NO 2= BUMP INVOKE.COUNT 


Based on the STRUCTURE.NUMBER of the ODL“NUMBER» the coapiter 
assigns a unfaque §PATH.NO and huitds a corresponding 
PATH. DICTIONARY.ENTRY in the PATH.DICTIONARY block on the SEGFILE 
which contains the unique DDL-NUMBER CStart the PATH.NO at one). 


Build a table refating the dataset OCUR to its key-names and 
their cospaonent“nagzes and cantaining the INVOKE.NOQ and PATH.NO 


and the TARGET.PATH.NO. Notes If the target DATASET of a SUBSET 


is not INVOKED- then ignore that path and its components when 
building the table» e.ge5 its component OCUR=0. The “RESTART® 
attribute is also encoded in this tabte entry. 


Orop alt attributes Ce.g.2 ODL-NUMBER» coaponent-names» etc.) 
when parsing path declarations. 


For each OB» save the data-base name CINNLIT) in a table with its 
OCUR. Drop TNNLIT. Logicat(-data-base name Canother TNNLIT 


followed by “OF" if present) will replace data-base nasze in this 


tabtes» for eventual use in “GPEN® coasunicate. 
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Exampoale i: 


O02 STUDENTS ORDERED OATA SET (38)~ 
STUDNANES SET C72» AUTO) OF STUDENTS (38) 
KEYS ARE LASTNAME®s FIRST“NAME. 


ALL ON ADN 
TKON TXON CSTUDENTS®LEVEL=02) TXON CSTUDENTS»LEVEL=02) 
ORDERED 
DATA DATA 
TINTGRCE 38) | | 
TXON TXDN CSTUDENTS®LEVEL=51) TXDN CSTUONAMES»LEVEL=51) 
TINTGRETL) | | 
TWORD TWORDCLAST“NAME ) 


TWORD THORDCEIRST “NAMED 


BURROUGHS 
COMPUTER SYSTEMS GROUP | 


SANTA BARB 
Exagote 2: 


02 


ALL 


TXON 
TINTGROS) 
oF 
TINTGRO1LS) 
TMORD 
TWORD 


CORPORATION 
ARA PLANT 


COURSE SET C8sMANUAL) 
OF UNIV-COURSES (14) 
KEYS ARE OEPARTMENToLEVEL. 


TXON CCQURSEoLEVEL=53) 


THORDC DEPARTMENT) 
THORDCLEVEL D 
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AON 


TXON CCOURSE>LEVEL=53) 
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PROCEOURE DIVISION PROCESSING 


GENERAL 
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Parse the OM.VEROS with particular attention to the 
relationship of dataset-nagzes and their paths. 


Output the INVOKE.NO and PATH.NO as TINTGR tokens fotlowing 


references to patch names. 


The CT.ADVERS bits for the OM.VERGS are arranged as follows: 


eye 
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BIT MEANING 


Le) BDSBenane 


i Distinguishes INSERT from STORE or REMOVE frorm DELETE. 
2 RECREATE or distinguishes BEGIN-TRANSACTION fron 
END-“TRANSACTION 
3 ONSTATUS fornat: 
Os:Binary 
sDectimat (4 BIT) 
4 ON EXCEPTION specified 
§ UPDATE 
6 MODIFY 
V-Li SELECTION EXPRESSION type 
OS NEXT 
LSPRIOR 
22FIRST 
33LAST 
&2NEXT and *"AT@ clause 
5s CURRENT 
62"AT* clause 


12 PATH TYPE 
OsKEY 7 
LSDATASET or 


Note: = No syntax checking wilt be done by MERGE 
for the EXCEPTION clause. If the clause is 
specified» it will be output as ise for 
handling by PROSYN. 


OPEN 


Defined: OPEN UPDATE/INQUIRY <data-base nane> 
CON EXCEPTION <statement> CELSE <statement>)) 


The comaunicates used in OPEN are as fotlous: 


* CT.VERB=6 © | 
CT.QBJECT=Nat used 
CT -ADVERS= 
BET 1 = PACK.ID0 included 
BIT 3 = OMSTATUS forsat 
O:Binary 
LsDecinaat (4 BIT) 
BIT & = "ON EXCEPTION® 
BIT 5 = *UPDATE@ 
03 “INQUIRY® 
as *YPDATE® | 
CT.2=B8it Length of OMSTATUS register 


3-11 


BURROUGHS CORPORATION | COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP COBOL COMPILER LOGIC 
SANTA BARBARA PLANT PeS. 2212 5397 (CD 


CT.2=Base relative address of OMSTATUS register 
C¥.3=Base relative address of database nane 
CT.4=Length of data-base nase in bits 

CT.5=Base relative address of data~base PACK.1D 
CT.6=Length of database PACK.ID0 


MERGE OUTPUT 


Defined: TTRESWD OPEN.DM 
TNNLIT data-base name 
TRESWDO UPDATE <exception clause> 
Verify that it is a data-base nase 
Change OPEN to DOM.OPEN before output (new verb) 


Look up data-base nage in table by OCUR> output the nase. 


CLOSE 
Defined = CLOSE <data~base name> 
{ON EXCEPTION <statenent> ELSE Setatement7 ss 
CT.VERB=7 
 6hCTUCOBSECT=Not used 
CT.ADVERS= 


SIT 21 = PACK.10 included 
BIT 3 = OMSTATUS foraat 
O:B8inary 

=~ £sDecimaal (4 bit) 

BIT & = "ON EXCEPTION™ 
CT.1=Bit Length of DMSTATUS register 
CT.2=Base relative address of OMSTATUS register 
CT.3=Base relative address of data~base nane 
CT.4=Length cf database name in bits 
C¥.5=Base retative address of database PACK.10 
CT.6=Length of database PACK.I0 
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MERGE OUTPUT 
Defined: TRESND CLOSE.D0M 


TNNLIT data-base name 
<EXCEPTION CLAUSE> 


Verify that it is a data~base name 
Change CLOSE to OM.CLOSE before output (neu verb) 


Look up database name tn table by OCURr output the name. 


GREATE/RECREATE 


Defined: CREATE/RECREATE <dataset~nane> 
CON EXCEPTION <statement>CELSE <statenent>)] 


| CT.WERBG=18 . 
—M CT COBJECTAINVOKE.NOs PATH.NO 
CT.-ADVER6= | 
BIF 3 = OMSTATUS foragat 
| O:8inary 
1sDeciaal (4 8I1T) 
BIT & = "ON EXCEPTION 
BIT 8 = *RECREATE* | . 
CT.izBit Length of OMSTATUS register 
CT.2=Base relative address of OMSTATUS register 
CT¥.3=Bit length of the DATASET record work area | 
CT~4=Base retative address af the DATASET record work area 


MERGE OUTPUT 


Defined: TRESWRD CREATE/RECREATE 
| FTENTGR INVOKE.NUM of dataset~nane 
TEINTGR PATH.NUM of dataset-nage 
THORDO dataset-nase <exception clause> 


Verify the dataset -naze 


Qutput the dataset-nage and path inforaation 
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SIQRE 
Defined: STGRE <dataset~nane> 


CON EXCEPTION <statement> CELSE <statement>)] 


CT. VERB=16 
CT.OBJECT=INVOKE.NOs PATH.NO 
CT.-ADVERB= 
BIT 3 = OMSTATUS format 
O0O2Binary 
1z:Deciaatl (4 BIT) 
CT-1=Bit length of OMSTATUS register 
CT.2=Base relative address of OMSTATUS register 
CT.3=Bit Length of the OATASET record work area 
CT.4=Base Relative address of the DATASET record work area _ 


MERGE guTeur 


Defined: TRESWO STORE | 
: | TEINTGR INVOKE.NUM of dataset-nase 
TEINTGR PATH.NUN of dataset-nane | 
FNORD dataset-naue <exception~ct ause> 


Verify the dataset-nase 


Output the dataset-nase and path inforsation 


EREE 


Defined: FREE <dataset~nase> | 
CON EXCEPTION <statenent> CELSE <statenent>]} 


* ° CTY¥.¥ERB=21 
CT.OBJECT=INVOKE.NO> PATH.NO 
CT -ADVERS= : | 
BIT 3 = DMSTATUS foragat 
O:Ginary 
BIT 4 = “ON EXCEPTION™ 
C¥.1=Bit Length of OMSTATUS register 
CT.2=Base relative address of DMSTATUS register 


i 
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MERGE OUTPUT 


TRESWO 
TINTGR 


FREE 
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INVOKE.NUM of dataset-name 
TINTGTR PATH.NUM of dataset-nane 
TWORD dataset-nase <exception cl ause> 


Verify the dataset-nase 


Gutput the dataset-nase and path infornation 


Defined: INSERT <dataset-nare> INTO <subset-naze> | 
CON EXCEPTION <statement> CELSE <statenent>})) 


Sefined: REMOVE CURRENT FROM <subset-nage> 
| CON EXCEPTION <stateszent> CELSE <statenent>)} 


‘CTeVERG=16 INVOKE.NO» PATH.NO of subset-nage 


CT.~ADVERB= 
BET t = ON 


BIT 3 = DASTATUS foraat 


" 9sBtnary 


sDecinalt ¢€& bit) 
OIT 4 = "ON EXCEPTIGN@ 
CT.1=Bit length of DMSTATUS register 
CT¥.2=Base volative address af OMSTATUS register 
CT~3=INVGKE.NOe PATH.NO of dataset-nane 


MERGE QUTPUT 


TRESHWD 
TINTGR 
TINTGR 
TWORD 

TIATGR 
TINTGR 
THCRO 


ENSERT/RENOVE 


INVGKE.NUMN of 
PATH.NUM of d 
dat aset-naze 
INVOKE.NUM of 
PATH.NUM of s 
subset-naae 


jatacetoneus 
ataset-naae 
or TRESWD CURRENT 
sub set~-nase 
ubset-naae 
<exception clause> 


Verify the dataset-nage to be a proper target DATASET of the 
subset-nagze and output it with its path info. 


Output the target dataset-nasze and its path inforaation. 
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CT.VERBS are ike those for STORE and DELETE. They are 
distinguished by BIT 1 on CT.VERB. 


For REMOVEs INVOKE.NUM and PATH.NUM of DATASET are zero. 
EINO/MOOIEY 
— GURRENT PATH INFORMATION 


Defined: FF END/NODIFY C<dataset~-nare> VIA] 
: | | <dataset=nane/<subset-nasze>/<order-nare>/ 
<retrievat-naae> 
{ON EXCEPTEON <statement> CELSE <statesent>}] 


ORDERED ACCESS FORMAT 


Defined: FIND/NOOIFY (<dataset-nasze> VIA] 
| NEXT /PRIGR/FIRST/LAST <dataset-name>/<subset~nane> 
<arder-nane> 
CON EXCEPTION <statement> CELSE <statenent>]] 


RANDOM ACCESS EQRMAT 


Defined: FIND/MODIFY Cdataset-name VIA] CNEXT) 
. <subs et “naae>/<order-name>/<retrieval-name> AT 
<component=nanerl> = <data-naae-1>/<literal-1>. 
CANO <coaponent-name~2> = <data-nane*2>/ 
<titerat-2>] . « « 
€<ON EXCEPTION <stateasent> CELSE <statesent>]i 


Note: The “<dataset-naze> VEIA* clause is nandatory uhen the path 
is a <subset-nase>.- 


CT.jVERB=15 
CT-OBJECT=INVOKE NO» PATHNO of the path“-nane 
CT -ADVERS= | 
BIT 3 = OMSTATUS forsat 
O2Gtanary 
tsDeciaat (4 BIT) 
BEY 4& = “ON EXCEPTION@ 
BIT 6 = *NODIFY* 
BIT 7-11 = Type of selection expression 
OS NEXT 
L12:PRIOGR 
23F RST 
Z3sL ast 
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_ &tNEXT and AT clause 
-§52Current 
‘62AT clause 

BIT 12 = Type of path 
OzKey 
isDataset 


CT.1=8it Length of ONSTATUS register 
C¥.2=Base retative address of DOMSTATUS register 
CT.3=B8it tength of the DATASET record work area 


CT.5=Base relative address of SEARCH KEY CCAT of component 


naa@es) 
CT-6z=INVOKENO» PATH.NO of dataset~-name 


MERGE OUTPUT 


TRESWD FUINOJMOOIFY 
FINTGR INVCKE.NUM of dataset~-nane 
TINTGR PATH.NUM of dataset~name 
TWORD dataset-naae 
TINTGR INVOKE.NUM of the path 
TWORD PATH NAME 
CTRESWD NEXT/FIRST/PRIOR/LAST) 
<selection expression> 
<exception ctlause> 


Where <SELECTION EXPRESSION> is: 


THWORD COMPONENT“NAME 
TRESWD *=* , 
THWORD/LITERAL 


Verify the PATHs NAME to be a proper path to the dataset “name and 


output the path inforsation. 


Output the target dataset-nase and its path inforaation (supply 


the parent OCUR as a TWORD token if the dataset-nagze is onitted). 


‘Verify the component-nase List to be in the proper order with no 


nases sissing froa the List. 


The type of the PATH.NANE is DATASET if BIT 7 of the DNFLAGS is” 


on in the PATH.NAME. This bit is used as the FILLER-~FLAG in the 
DATA DEVESTON. : : 
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When DATA SET is declareds allocate a separate work area for it. 


Mhen an entry with Cevel=51-+ 52 of 53 is dectareds it is treated 
Like an 88» i.e.» storage is not ailocated. 


Verify the uniqueness of the 01 DATASET“NAMES within a 08 and 
DATA“BASE naaes. | | 


Speciat handling needed for nested data sets to avoid 
scope-related controt problems. — | | 


EXPLOOE 


Change THORD to TINDEX for iteas with tevet=51-53 (done in 
PROCEDURE RESOLVE.FACTORS) in order to restrict the use of 
PATH.NANES to DN.VERBS. 


PROSYN PROCESSING 
Parse the “GN EXCEPTION . «. -* clause of the O04. VERBS. 


CODESEN 


Gener ate cosagunicates corresponding to OM verbs. 


BURROUGHS CORPORATION 
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ELXUP PROCESSING 


PATH.DICT.8LOCK CPBD) 
RRAaKARKAKaKRKAKKRAARKERERE 
0 «@ Not used * 
RkEARAaARKREAKRAaARRAREKAARARKRER 
1 #eDDLeNUMBER(64 BITS)* 
RRAaERREREAEARARARRARARR 
2 t 
AaBRRARRKKRERREARRAREaRAKRER 


Tabte 3.1 


= The coupiter 
| name  dectared 


assigns 
in the 


q seen Ce te Ke) 


<*PATH.NO 
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PP8 
RaARRaERARRRERKRERRKAKREREREKE 
& : te 
fe | & 
& : & 
* : & 


RRAERAKRARARRREKAREARRAREKREKE 


* PATH.DICT.SLOCK.PIR * 


RARAEARAARKRKEAKARKKAREKAKEEKKRARERR 


& & 
2 & 
2 & 
& ®& 


FIXUP Processing 


DATA“BASE SECTION (Ce. 


«Cc) 


path nuabers to each unique path 


Ger 


dataset-nases subset-names order-name»s retrieval-nare). 


- ‘The PATH 


DICTIONARY 


OICTIONARY ENTRY CPDE) for 


contains 
nage. 


= The PATH.NQ and 


: INVOKE .NO 
desired path to a DATASET record. 


BLOCK 


cPDB) 


are used to identify 


The PATH.NO is used 


contains a PATH 
each path name. The 
the 64-bit DDL-“NUMBER associated with that path 


PDE 


the 
as 


an index into the PATH.DICTIONARY to get the DOL-NUMBER. 
The INVOKE.NO is used to identify the inforaation about a 


~QOATASET record where that DATASET has been 


than once. 


SAMPLE DATABASE SECTION 


DATA“SASE SECTION. 
OB UNEVERSITIES. 


01 STUDENT INVOKE UNI V-PERSONNEL. 


#Q1 UNIV-PERSONNEL DATA 


OF UNIV-PERSONNEL 
KEY IS MAJOR. 


* *# @ ew & @ ® 


SET (88). 
PERSNAMES SET (73+ AUTO) 
OF UNIV-PERSONNEL (88) | 
KEYS ARE LASTNAMEsFIRSTNANE. | 
PERSMAJORS RETRIEVAL SET (82-AUTO) CS 02 03 ~~ OL 
(88) _ - 


PERSAGES RETRIEVAL SET (22 AuTO) 


OCUR INV# PATH# TGT# C 


O1 
02 


03 OL OL OL 
06 OL 02 01 


06 OL O%f OL 


invoked sore 


N CN 


25 27 
34 


29 
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OF UNIV<-PERSONNEL (88) 
KEY IS AGE. 
02 NAME. 
O3 LASTNAME PC XC€15). 
O03 ENTIAL PC X. 
O3 FURSTNAME PC XC€10). 
02 SEX PC 9 CHP. 
02 AGE PC 99 CMP. 
O02 CORSE“NOS OCCURS 4. 
03 OEPT PC XX. 
03 NMBR PC 999 CMP. 
O02 COURSE SET (Bs MANUAL) 
OF UNIV“COURSES (14) | 
KEYS ARE DEPARTMENT» LEVEL. 
02 MASOR PC XC4) | | 
02 SALARY PC 9(€59¥99 CMP. 
02 ADVISOR SET (165 MANUAL) 
* | OF UNIV-PERSGNNEL (88). 
QO1 FACULTY INVOKE UNIV-PERSONNEL. 
#01 UNEIV-PERSONNEL DATA SET (88). 
PERSNAMES SET (73>. AUTO) 
GF UNEV-PERSONNEL (88) 
KEYS ARE LASTNAMEs FERSTNAME. | 
PERSMAJORS RETRIEVAL SET C&82s AUTO) 
OF UNIV-PERSONNEL (88) 
KEY £3 MAJOR. 
PERSAGES RETRIEVAL SET (25 AUTO) 
OF UNIV-PERSONNEL (88) 
KEY 15 AGE. 
O03 CASTNAME PC XCL5). 
O03 FENITEAL PC X. 
O03 FIRSTNAME PC XC€10). 
02 SEX PC 9 CHF. 
02 AGE PC 99 CMP. 
02 CORSE-NOS OCCURS 4. 
O03 DEPT PC Xx. 
 .03 NMBR PC 999 CHP. 
O02 COURSE SET (&» MANUAL) 
— GF UNT¥W-COURSES €14) 
KEYS ARE DEPARTMENT» CEVEL. 
O02 MAJOR PC X(4&). 
02 SALARY PC 9(53¥99 CHP. 
O02 ADVISOR SET (165 MANUAL) 
OF UNIV-PERSGNNEL (686). 
~—UMCOURSES INVOKE UNIV-COURSES. 
OL UNIV.~COURSES DATA SET (14). 
DEPTLEVELS SET €325 AUTO) 
OF UNIV-COURSES (14) 
KEYS ARE DEPARTMENT» LEVEL. 
CLASS“SZ RETRIEVAL SEY (34> AUTO) 
OF UNEV-COURSES (14) 
KEY iS CLASS-SIZE. | 
DEPTS RETRIEVAL SEY Ci2» AUTO) 


»oee eRe eo eve ee RB eee @ 


a» 


yee ee vt oawmneeeeeneene eee eee oe 8 ee eRe 


ea Ae ie 


39 


40 
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01 05 06 4&1 4&2. 


01 or 01 


02 01 01 


02 02 O01 25 27 


02 03 OL .34 


02 04 01 29 


02 05 06 4&1 


02 O07 . O1 
03 « 06—tC« 
03 08 06 41 


03 09 #4206 SO 


03 10 06 41 


a2 


42. 
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ee ee ee 
© 
a) 


OF UNIV-COURSES (24) 

KEY 13 DEPARTMENT. 
DEPARTMENT PC XX. 

LEVEL PC 999 CHP. 
PROFESSOR SET €33» MANUAL) 
OF UNIVY-PERSONNEL (88). 
BOOKS DATA SET (7). 


O3 TITLE PC X60). 
03 AUTHOR PC XC30). 


DAYS“OF “WEEK PC XXX. 
BUILDING PC 999 CHP. 
ROOM PC KX. 

CLASS“SIZE PC 99 CHP. 


‘STUDENTS GROEREO DATA 


STUONAMES SET (71s AUTO) 


OF STUDENTS (€38) 

KEYS ARE LAST<“NAME> 
OS LAST“NAME PC XCE5). 
O3 FEIRST“NAME PC XC10). 


PATH DICTIONARY TABLE | 
PATH.NO STRUCTURE.NO 


CaNAUNFWNMO 


NOT USED 
86 
73 


SET (38). 


FIRST“NANE. 


| COMPANY CONFIDENTIAL 


~, 
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03 ti 01 


03 i2 12 


03 13 13 
03 1% 13 53 


The source igages with an “*" are provided by the DASDL 
Compiler as a library file to the COBOL Coapiter. 


54 
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ee 


The invoked name is the name of that file and is not a 
proper data-nage of the DATASET C@.Je» 
@“ZUNIVERSIT?/S*UNIV-PERSO@). 


The nage “STUDENT? renptaces the word *UNIV-PERSONNEL* 
at OCUR=3. | | | 


The name “UNIV-PERSONNEL® is deleted when it appears as 
the target dataset-naze of ADVISOR at OCUR=19 and 
OCUR=36. | 


The DATA“BASE SECTION appears to be a file nane 
COCUR=1) whose scope includes all DATA-BASE data-names 
CSCOPE=54). 


Cogaponent-naees appear to be quatified when referenced. 
This naming convention atltlous unidentified 
coaponent-naaes in the case where the target 
dataset-name of a SUBSET is not invoked. 


When duplicate coaponent-nanes exist then the OCUR of 
the tast of the dupticates wittl be returned Ce.g.» 


LASTNAME appears at OCUR=8 and OCUR=25)._ 


DOt witt guarantee the uniqueness of component-nases in 


- the DATABASE. 


-Fhe INVOKE.NUMBER starts at one and is busped for each 


INVOKE specified. 


The PxTH.NG is assigned by sequentiatly searching the. 
PATH.DICTIONARY.TABSLE for a matching structure nuaber. 
If a satch is not found then the new structure nuaber 
is added to the end of the tabte. The index into the 
table is the PATH.NO. Note that the DDL-NUMBER in the 
exanpte contains onty the STRUCTURE.NO Cthe time and 
date part has been oaitted for clarity). | 


PATH TABLE AND ALGORITHM 


DECLARE 


OL PATH.TABLE REMAPS BASE 


02 PATH.OCUR BIT(12)> 
02 LAST.ENTRYoLINK BIT (26 )» 
O02 PATH.TYPE BITC3)» 
O02. INVOKE NUM BIT(8)» 
02 PATH.NUN BIT(8)» 


O02 COMP.OCURCMAX.COMP) BITC12)>» 
Of TARGET-STACK (16 oe 
| O02 TS-LEVEL BITCS). 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
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O02 TS.PATH 


Find a PATHNAME 


Fill in PATH.OCUR 


‘LEVEL 


OL 
02°49 
St 
32 
33 


Fil in INVOKE.NUNM 


Adjust target stack 


FILL in an acuR 
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BIT(8)s 


TXON followed by “DATASET* or TXON 
with Level nuasber 51°53. Stop on 
"WORKING-“STORAGE SECTION" or 
“PROCEDURE DIVISION®. 


Determine type froa tevel nunaber. 


Fil in PATH.TYPE = Deteraine 


TYPE 
0 dataset-nanze 
1 dataset-nage (Nested) 
2 order-nasze 
3 vretrievai-nasze 
& subset-name 


If tevet=O0i>s then current 
INVOKE.NUMBER gets buaped. 


Fitt in PATH.NUN = Deternaine 
froa tooking up DODL# ia path 
dictionary: if not founds add 
new entry. 


Pop stack until Level on top is 
less than current tLeveltl Cor 
stack eapty). If current tevel 
<50 CDATASET)>» then push new 
entry. | 


If target DOLE is explicits find 
from path dictionarye adding a 
new entry if necessary. If 
target is inplicits then use path 
on top of target stack. 


For each component~nasze which 
follows in the parenthesized list. 
Add an extra OCUR of zeroes 
tersinating the list. | 


BURROUGHS CORPORATION 
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INTERMEDIATE FCILE TOKENS 


ALLEILE AND ONFILE TOKENS 


OO=TENTGR 
00=TEDC 
Qi=TREAL 
01=TOOC 
O2=TNNLIT 
O02=TPOC 
03=TXDN 
O3=TFILEREC 
O4=TXSECN 
O5=TXPAR 
Q6=TFIXUP 
072 T¥ORD 
O8=TWHON 
O9=TCSPL 
LO=TCSPR - 
LisTQUAL 
L2=TLABL 
L3=TALTER 
'14=TPERF 
~15=TPTAHRU 
16=TLMON 
 &7=TL Qua 
L8=TRESND 
19=TE 08 
Z20=TE OF 
21=TOOT 
22=TPC 
23=TDOLAR 
24=TERRGR 
25=TCARD 
26=TPROCESSED 
27=TROFNS 
28=TLABELREC 
_ 292TCSPS 
SO=TSTATESTOP 
SL=TINDEX 
322=TS UBS 
33=TBO0STOP 
34=TARITHGOP 
35=TINDSECT 


36=TMINIMNUM 


Integers @.ge» 123 

ENV.OL¥.8LOCK code CONFILE only) 

Reat nusber? e@.ge» 12.3 

OATAsDEVESION. BLOCK code CDNFILE onty) 
Non-numeric literalse.g.» "ABC 

PROC.DIV.8LOCK code CDNFILE only) 

Explicit datacnase: e.g» O1 TXDN. 

Eegen READ FILERECs created in EXPLODE. 

Explicit section~nase:s enoge»r TXSECN SECTION. 
Explicit paragraph-nase? e.ge» TXPAR. 

FIXUP the indicated OCUR according to the code. 
Word eege» MOVE £ TO TWORD. 

MONITOR nord operand 

Corresponding leftse.g» MOVE CORR ICSPL 10 TCSPR 
Corresponding right: e.g» MOVE CORR YCSPL TO TCSPR 
Yor d quatifier: e.g» MOVE 1 16 BOR ay TRUAL 


tabels e.g-» GO TO TLABL. 


ALTERCed) operand: eeg» ALTER TALTER TO PROCEED TO P2. 
PERFORM operand: e.g.» PERFORM TPERF. 

PERFORM THRU operand: e.g.» PERFGRM Pl THRU TPTHRU. 
MONITOR tabel operand 

Label quatifier: e.g.» GO TO Pi OF TLOUAL 

Reserved word EG: GO» NOVEs ADD. 

End-of-block marker: for unblocking. 

End-of-fite aarker: for unbtocking 

Period 

PICTURE 

OGLLAR card 

Error of warning sessage 

Card sarkers i-@e» source card encountered 

Processed Dictionary entries CONFILE only? 
REDEFINES/RENAMES operand: e.g» 02 X REDEFINES TROF NS 
Operand of “LABEL RECORDS ARE* clause 

Corresponding sentinet: detiaits a TCSPL»TCSPR pair 
Statesent delinaiter 

INDEXED BY operand: e-g» 02 ON INDEXED BY TINDEX 


Subscript for previous operand..created in EXPLODE. 


Boolean priaary deliaiter..created in PROSYN 


Arithegetic operator: e.ge» ADDO» DIV3 


For tnitializing ALTERed 60 10 paragraphs of 
independent sections 

Establishes siniaum scate and left part for | 
intersediate results of an arithmetic expression. 


I 
\ 
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SEGEILE TOKENS 


OO=TCOPX 


OL=TLIT 


02=TCOP 
03=TDOADOR 


 04=TOP 


05=TBADOR 


06=TBITS 
O7=TSUBORINX 
OS=TSEGL INK 
O9sTFACTOR 


 10=TBOUND 
LL=TALTEREINDEX 


12=TOPNDX 
L3=TLITFIX 
ieaTSTOP 
15= 


16= 


L7=TMEMVALUE 


16=TCARDADR 
19=TE OB 

20=TE OF 
23=TOOLLAR 
24=TERROR 
25=TCARD 
26=TCONML ITF IX 
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COP table index...if 0 then intine IYCOP follows. 


Literal of 4é-bit or 8S-bit units. 

Inline COP 

Address eventuatty relative to DSEGO 

Slanguage operator 

LABEL.~TABLE OCUR changed into branch address by | 
FIXUP 

Bit string to insert into code...general use. 
Inline COP for subscripts or indexes | 
Links sections belonging to the same code sequent 
Factor for subscripted inline COPs 

Bound for subscripted inline COPs 

Potnter relative to ALTER table base 

Sets LIT.~FLAG to 0..-COP table index 


Make a literal relative to a certain base(Cfor I/0 use) 


Signats change in code segarents 
Unused 
Unused 


For FIXUP...initializes data segaent vatue in 


CODEFILE 


Data address to printout with card (created in DATSYN) 


End-of-block sarker: for unblocking 
End-of-fite sarker: for unblocking 

OGLLAR card 

Error of warning message | 
Card marker,» i.@.2 source card encountered 


Make a literal relative to acertain base{for 1/0 use) 
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MESCELLANEOUS 

Note: 


URS = Field for any use. 
ae = Type not present in this pass. 
-- = Type peraganently dropped in previous pass. 


USAGE 
OO0=RESERVED 
OOL=CHP 
O10=DISPLAY 
OLL=MEXED — 
“L002ASCII 

10 1=I NDEX 
L10=UNDEF INED 
LL1=CMP-3_— 


DATA MAME FLAGS CONFLAGS) (10) 


REFERENCE LABEL SORT GROUP NOT A COND FILLER MONITORED FILE 


COUNT RECGRO FILE FLAG CORR NAME NAME 
: OPERANO NAME OPND 
(2) (1) 2) «1) C2) {1) <1) qi) C1) 


A A ED ED ED AR ED OED GE EE OR EDD EE DEE EB HE BEES DEE EE SE OOM EDERGDE DED BEEBE 2S CBSE BLADES © OOOO OED 


REFERENCE COUNTCto sininize nuader of COP entries): 
ONO REFERENCES 
L3QNE REFERENCE 
23TH0 GR MORE REFERENCES 


LABEL FLAGS (6) 


TRIS SECT MONEITGRED GBJECT OF AT PERFORMED EXPLICIT 4S9FLAG 


CONTAINS LEAST ONE TERMINAL 60 TO 
ALTERED ALTER PARAGRAPH PAR 
GO TO PAR | | a 
Ch «ab (1) qt) qi) C1)* 


* On in section and ail its paragraphs. 
S9FLAGSI=PRIORIFY GFR 49 


Explicit GO TO PAR flag is set in QUALIFICATION EE See CIir) 
URS IN CITERAL TOKENS c4) 


FORMAY ALL SIGNED BINARY 
q1) ci) €2) «i> 


FORMAT20=8677> L=4B1T SINARYV21=LIT 15 2481T BINARY. 
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BASIC COP (53) 


ADDRESS CENGTH CLOGICAL SIZE) §SUB FLAGE DATA TYPE ASCII FLAG 


C31) C18) 9C1) q (2) (1) 
MULTI@- | 
ENTRY 

DATA TYPE 


~QO=UNSIGNEO 4 BIT 

 QLSUNSIGNED 8 BIT 
10=SEGNEOD 4 BIT 

“ LL=SIGNED 8 BIT 


COP FACTORS (80) 


#SUBS FACTORI FACTGOR2 FACTORS SUBSCRIPT BOUNDS 
C2) €18) C18) €18) C24) 


: ‘ 
SS GR GD GE GD OE SD GP GE GE ED ED GE ED EE HD DS EB DS BS BEES @ CBS EDS EE ED 1B BOSE® @ OE OO 


PB ENFO C80) 


UNUSED FPSB FILE FILE FILE FILE FILE FPB FILE MAX 
TNDEX GRG. LABEL HAROWARE ACCESS LIMITS NUMBER REC LEN 


TYPE FLAG 


C26) ¢3) €2) €4) (7) (4) qi). q9) €18) 


PCINFG C74) 


MASK ADR MAPSZ CCORE SZ) SCALE SIGN CLASS 82 cP 


(24) (18) CF) @)? ) a ay 
SIGN CLASS | 
O=¥ O=NUMERIC INTEGER 
izs ss PENUMERIC REAL 
2=J 2=NE 
-3=K 3=AN 
&=£  &=AB 
=AE 


NON INFO (30) 
MONITOR SYMBOL ADR. MON SYM LGTH 
(24) (6) 
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ALLEILE: FROM INITIAL PARSING (1) 


OO=TENTGR (294 (LENGTH#8)) 


TYPE COLUMN SCALE BYTE LENGTH EBCDIC LITERAL 
«6) (7) (8) (8) (255 MAX) 
OL=TREAL -  §EE GO=TINTGR 
O2=THNLET SEE OO=TINTGR 
 O3=TKON (13) | 
TYPE COLUMN 
(6) (7) | 
O&=TXSECN we 6% SECTIONS ARE NARKED AS SUCH ON DNFILE BUT 
a % AS TXPAR ON ALLFILE 
O5=TXPAR SEE O3=TXDN 
O6=TFIXUP ah | 
O7=TWORD. SEE 03=TXDN 
O8=TNMON SEE 03=TXON 
09=TCSPL SEE 03=TXDN 
LO=TCSPR SEE O3=TXDN 
LL=TQUAL. ae 
12=TLABL | SEE O3=TXDN 
L3*TALTER SEE 03=TXDN 
14=TPERF | SEE 03=TXDN 
1S=TPTHRU | SEE 032TXON 
162TLMON SEE 03=TXDN 
L7=TL QUAL ne 
18=TRESWD (29) 
TYPE COLUMN KEY CIN HEX) 
>) C7) (16) 
—19=TEOB (6) 
TYPE. 
(6). 
20=TEOF SEE 19=TEO8 
21=TDOT SEE O3=TXON 
22=TPC , SEE O3=TXDN 
23=TOOLAR (36) 
TYPE FLAGS 
(6) ©€30) 
— 24=TERROR (24) 


TYPE COLUMN WARN ERRORS 
(6) €7) (1) C20) 


BURROUGHS CORPORATION 


SANTA BARBARA PLANT 


25=TCARD 
26=TPROCESSED 
27=TROF NS 
26=TLABELREC 
29=TCSPS 
3O0=TSTATESTOP 
3i=TINDEX 
32=TSUBS 
33=aTB800STOP 
34=TARITHOP 
35=TINDSECT 


COMPUTER SYSTEMS GROUP 


SEE 19=TEOB 


ak 


SEE Q3=7XON 


SEE O3=TKON 


at 
ak 
&t 
an 
&n 
an 
&k 
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COMPANY CONFIDENTIAL 


COBOL COMPILER LOGIC 
PeSe 2212 5397 (CC) 


| 
| 
| 
| 


OO=TEDC (6) 

TYPE. 
6) 
01=TO0C SEE 00=TEDC 
02=TPDC SEE 00=TEOC 
O3=TXON | (584 (LENGTH*8)) 


Q5zTKPAR , SEE O4=TXSECN 
-.O6=TF 1XUP (25) 
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COMPUTER SYSTEMS GROUP COS8OL COMPILER LOGIC 
SANTA BARBARA PLANT PeSe 2212 5397 (Cd) 


DNEILES FROM INITIAL PARSING Ci) 


TYPE LEVEL ONFLAGS ONOCUR STACKHEAO# SYMBOL LENGTH SYMBOLS | 
(6) (16) = €20) C14) (7) (5) C30 MAX) : 


NOTE 3 LEVEL=2 CHARACTERS 


O4=TXSECN. C584 (LENGTH®8)) 


H 
ey \ 
a A ES EB GD GD ED EB SE GD GE BSD GE DE SE GE-EE GD OD EE SEE ED OC CEES BE BOE OB @ OE DS EC BBE SK BSBBSESE BCE BED LEBEE ER @ GB BEES CEG E « 


TYPE 49 SEG# CURRENT CABEL STACKHEAD#® SYMBOL LENGTH SYMBOLS 


FLAG SECTION OCUR | 
| OCUR | | 
(6) qi) (7) (14) C14) (7) (5) C30 MAX). 


SE ED ED AD ED GD GD ED SE GD GD AD GD GE GE GPG GR GD GO GR GR GB GEE OE EE GSE GD GE EE SB ED GE BD EDD ED ED 4B GE GE 4B ED SD DE ED OD EE OEE OC BEE GS 4 BEE 2 


SEG# 1S SET BY THIS PASS..SYNBOL SCRAMBLE DONE BY THES PASS 


| 
| 
of 
| 

| 


TYPE acuR FIXUP CODE 

(6) (24) 5) 

HARK SUCH THINGS AS: | 
Ae NOT CORRESPONDING OPERAND. 
B. GO TO PAR. 


O7=THORD C18*CLENGTH*6)) 


TYPE STACKHEAD# SYMBOL LENGTH SYMBOLS 
(6) 7) 5) (30 MAX) 
08=THMON - | SEE O7=TWORD 
09=TCSPL SEE 07=TWORD 
10=TCSPR «SEE O7=TWORD 
L1=TOQUAL SEE O7=TWORD 
12=TLASL | SEE O7=TWORD 
13=TALTER SEE O7=THORD 
146=TPERF | SEE 07=TWORD 
15=TPTHRY SEE O7=TWORD 
16=TLNON SEE 07=TWORD 
17=TL QUAL SEE O7=TWORD 


—18=TRESHD oe 


&-8 
BURROUGHS CORPORATION | COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP | | COBOL COMPILER LOGIC 
SANTA BARBARA PLANT PeSe 2212 5397 (C) 
 19=TEOB (6) 
TYPE 
C6) 
| 20=TE OF SEE 19=TEOB 
| | Z21i=TDOT at 
! 22=TPC | C3Z2*(LENGTH28)) 
| TYPE PC OCUR STACKHEAD# SYMBOL LENGTH SYMBOLS 
«€6) €14) «7) (5) €32 MAX) 
| A blank is included at the end of the PICTURE to provide a convenient 
| deliniter for PICTURE PROCESSOR and to keep PICTUREs unique froa tabe 
nages in dictionary processing pass. 
23=TDOLAR (36) 
: TYPE FLAGS 
: (6) €30) 
24=TERROR | we 
25=T CARD ut 
26=TPROCESSED 3 ae 
 27=TRDFNS ‘SEE O7=THORD 
28=TLABELREC — SEE O7=TWORD 
29=TCSPS SEE OO=TEDC 
3O=TSTATESTOP ae 
ZL=TINDEX ae 
32=FS5uss ae 
33=TBOGST OP at 
34=TARITHOP 2a 


SS=TINDSECT fh te 


ood 


ced 
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COMPUTER SYSTEMS GROUP COBOL COMPILER LOGIC 
SANTA BARBARA PLANT PoS. 2212 5397 (C0) 
QNEILE: EROM DICTEONARY PROCESSING (II) 

OO=TEDC (6) 

TYPE. 

(6) 
Qi=To0c SEE 00=TEDC 
02=TPOC SFE 00=TEOC 
O3=TXDN | (46) 


TYPE LEVEL ONFLAGS SAMENAME OCUR 
C6) €16) C10) 14) | 
FILLER? FILLER FLAG=1 | 
“WORKENG@STORAGE SECTION: ENTRY=0 


O&=TXSECN 2) 
TYPE A9FLAG SEG# SECTION OCUR SAMENAME OCUR 
C6) «2D C7) (8h? C14) 

O5=TXPAR SEE 04=TXSECN 

O6=TF IXUP (25) 


a ee ee ee ee ee ee ee RD Gh Ch Gh 


TYPE GCUR FIXUP cove 
(6) (14) (5) 


EE Gb 0h GE EE ED BEE BED BES OCH DOSS @ 


O7=THORD (20) 
«TYPE «UNRESOLVED OCCUR 
(6) C14? 
Q8=THMON SEE O7=TWORD 
O9=TCSPL SEE O7=TWORD 
‘LOZTCSPR SEE O7=THORD 
11=TQUAL SEE 07=TWORD 
42=TLABL SEE 07=TWORD 
13=TALTER SEE 07=TWORD 
16=TPERF SEE 07=THORD 
15=TPTHRU SEE 07=TWORD 
16=TLNON SEE O7=TWORD 
17=TL QUAL SEE O7=TWORD 
L8=TRESWD at - 
19=TE08 SEE 00=TEOC 
20=TE OF SEE 00=TEDC 
24=TOOT os 
22=TPC (25% (LENGTH#8)) 


OS © OOS Oe O28 AEDT ABBA DBD Oe 7 a> qn am 


TYPE OCUR LENGTH SYMSOLS 
(6) €i4) (€5) C32 MAX) 
Pictures have been tooked up and now OCUR = unique picture. Syabots 
are retained for convenience for picture peoree rnd PasSSe 
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COMPUTER SYSTEMS GROUP COBOL COMPILER LOGIC 
SANTA BARBARA PLANT 2 PeSe 2212 5397 CC) 
23=TDOLAR (36) 

TYPE FLAGS 

(6) 30) 
24=TERROR ae 
25=TCARD | a 
26=T PROCESSED (26) 

TYPE #B1TS 

(6) = €20) 


i 2 a> ib 1p an ab 2S aba a a a 


At beginning of each buffer - used to indicate how much data was 
previousty processed in this iterative pass (which allows the 
dictionary to overflow) - this type is dropped in the next pass. 


27=TROFNS - SEE O7=TWORD 
28=TLABELREC SEE O7=TWORD 
29=TCSPS © SEE 00=TEDC 
ZO=TSTATESTOP ae 

3i=TINDEX os 

32=TSUBS ae 
33=TBOOSTOP as 
34=TARETHOP a* 


35=TINOSECT at 
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COMPUTER SYSTEMS GROUP | COBOL COMPILER LOGIC 
SANTA BARBARA PLANT PoS. 2212 5397 (C) 
DNFILE: EROM QUALIFICATION RESOLUTION CRIT) 
00=TENC DROPPED 

O1=TODC (6) 
TYPE 
(6) 
-O2=TPDC DROPPED 
O3=TXON (60) 


TYPE CEVER ONFLAGS SAMENAME OCUR SCOPE 
(6) C16) C10) C14) C14) 


ONFLAGS REF.CNT has been updated. 
04=TXSECN (33) 


TYPE CAGEL FLAGS SEG# SAMENAME OCUR 
(6) €6) (7) (14) 


. 1 . 
8 A GD GD GD GD HE GEE GEE GD O28 OB EE OC SB BE 28S BE @ BB CBB SE EBD D OAS 


6 


 OS=TRPAR SEE O*=TSECN 


O6=TF IXUP | DROPPED 
O7=TWORD (30) 


“TYPE RESOLVED OCUR ODNFLAGS 
<6?) (16) © ©1210) 


ONFLAGS needed for actions like special processing of condition nares. 


O8=THNON SEE O7=TWORD 
09=TCSPL SEE 07=TWORD 
10=TCSPR SEE O7=TWORE 
AL=TOQUAL DROPPED 
“222TLABL (47) 


2 GD OE GS AD ED OR ES AD GD ED AR ED GD GE EB GE ED 8 AD EE OB EE SB EB EEG SED SE SE EE EE @ EE EB BEBE EE OSE GHOSE EES 


TYPE CABEL FLAGS SEG# SECTION OCUR RESOLVED OCUR 
(6) (6) 7) Cb) C14) 


L3=TALTER | (55) 7 
TYPE LABEL FLAGS SEG# SECTION OCUR RESOLVED OCUR OBJECT TIME 
| ALTER INDEX 

C6) (6) (7) C14). (1a) C8)e 
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COMPUTER SYSTENS GROUP | COBOL COMPILER LOGIC 
SANTA BARBARA PLANT PeSe 2212 5397 (C) 
LS=TPERF (55) 


TYPE CABEL FLAGS SEG# SECTION GCUR RESOLVED OCUR TERM PAR 8 
C6) €6) _ (7) C14) C14) ¢8) 


TERM PAR# CANNOT BE THE GCUR BECAUSE OF 8 BIT LIMIT 


1S=TPTHRU SEE 14=TPERF 
16=TL MON SEE 12=TLABL 
L7=TL QUAL DROPPED 
18=TRESWD *a 
19=TE 08 SEE 01=TODC 
20=TE OF SEE 01=TDOC 
21=TOOT se 
22=TPC | C254 CLENGTH®8)) 
TYPE GCUR LENGTH SYMBOLS 
C6) CHD C5) BL HAXD 
23=TDOLAR DROPPED 
24=TERROR (17) 


TYPE «6WARN ERRORS 
«6) C1) €10) 


25=TCARD ae 

26=TPROCESSEDO DROPPED 

27=TROF NS (58) 
TYPE RESOLVED OCUR ODNFLAGS SAMENAME OCUR SCOPE 
€6) C14) €10) C14) (14) 

28=TL ABEL REC SEE OF=TWORD 

29=TCSPS SEE 01=TODC 

3SO=TSTATESTOP ae 

3i=TINDEX we 

32=TS UBS et 

33=T800STOP | he 

34=TARITHOP wt 


35=TINDOSECT | & & 
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COMPUTER SYSTEMS GROUP COBOL COMPILER LOGIC 


SANTA BARBARA PLANT —— - PeSe «2212 5397 CC) 
PCINEO: FROM MERGE CIV) 


€93) 

MASK MAPSZ LENGTH SCALE SIGN CLASS 82Z CP ERROR 
ADOR (CCORE SZ) CLOGICAL SZ) FLAG 
C24) (18) (18) CF) C3) (3) C1) 1) C8) 


a GD ED ED GD GD GD 68 GR ED EE BBE EB DG BED @ OE BS BES CEBEE © BSG SB COE @ COGS SS EOS BP OSE BHD EOBD ODDO EE 


MAPSZ=CORE SIZE--LOGEICAL SIZE= # units to accept from source... 
If ERRORFLAG=1 then MASK AOR. = error# and SCALE = card cotunn.. 


MASK is in constant pool.-.LENGTH later becomes part of basic COP.. 


Other info tater becoses PCINFO portion of elementary token. 


SIGN 

O=US UNSIGNED (& OR 8 BIT) 

1=SS HIGH ORDER CIGIT (4 OR 6 BIT) 

2=§S HIGH ORDER DIGIT OF LAST UNIT (4 OR 8 BIT) 
3=KS HIGH ORDER CHAR (8 BIT) 

S=ES *o-oCRoDB C6 BIT) 


CLASS 


OINTEGER (4 OR 8 BIT) PC 999 
L=REAL — Ce OR 8 BIT) PC 999499 CNUMERIC SCALED) 


2=NE 8 BIT) PC $$5338 OR 999.994 
= S=AN | €8 BIT) | PC XKOA 
AB c8 BIT) PC AAA o¢ ABA 


“SRAE <8 BIT) PC XXBAA 
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COMPUTER SYSTEMS GROUP : COBOL COMPILER LOGIC 
SANTA BARBARA PLANT PeSe 2212 5397 (CC) 


ALLONEILES EROM MERGE CIV) 
OO=TINTGR (33+(LENGTH#8)? 


TVPE COLUMN URS SCALE BYTE LENGTH EBCOIC LITERAL 
(6) C7) (4) (6) <8) C255 MAK) 
O1=TREAL «SEE OO=TINTER 
O2=TNNLIT SEE 00=TINTGR 
O3=TXON _ (67) 
TYPE COLUMN LEVEL ONFLAGS SAMENAME OCUR SCOPE 
(6) ¢7) C16) C10) (14) (14) 


RO ananwnaa ane SD GED GD GD ED GED GR GED EE GE DP GD GD OD 4D 9 EE 448 69 EG BOE COSBSESE SO COHOEBSOSBE |S 


04 -TXSECN C44) 
TYPE COLUMN URS LABEL FLAGS SEG# SANENAME OCU 
(6) (7) Ca) C6) (7) 1a) 


if MONETOR FLAG=1 then follous a non-numeric titeral token. 


O5=TXPAR SEE O4=TXSECN 
Q6=TFIXUP -- a 
O7=TMORD (71) 
TYPE COLUMN URS DNOCUR ONFLAGS MONITOR SYMBOL ADR. MON SYM LGTH 
C6) 07) CD AD (10) (24) | Cod 
O8=THHON PROPPED 
O9sTCSPL SEE 07=TWORD 
2L0=TCSPR- SEE O7=TWORD 
Ri=TQUAL re 
L2=TLABL | | (58) 
TYPE COLUMN URS LABEL FLAGS SEG# SECT OCUR LABEL OCUR 
(6) (7) (4) (6) (7) C14) (14) 


URS: 
OUMMY TLAGL CREATED FOR UNUSED — 
Ae GO TO. 
C2) (3) 


SD ED AD EE EE EE GD ED EE SES 6 ED OSES EE BEES AE OE C4 0 8 OOO Oe 


13=TALTER (66) - 

TYPE COLUMN URS LABEL FLAGS SEG# SECT OCUR LABEL OCUR ALTER IN: 
(6). 07) 4) (6) (7) C14) C14) ce) 
L4=TPERF 66) | 

TYPE COLUMN URS LASEL FLAGS SEG# SECT OCUR LABEL OCUR TERM PAR 

(6) (7) C4) 6) (7) Cia) C146) ca) 
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COMPUTER SYSTEMS GROUP | COBOL COMPILER LOGIC 
SANTA BARBARA PLANT PeSe 2212 5397 CC) 
IS=TPTHRY SEE L&=TPERF 

16=TL MON ORGPPED 

17=TL QUAL a 

L8=TRESUD (29) 


TYPE COLUMN KEY CEN HEX) 
(6) C7) C16) | 
19=TEO8 (6) 
TYPE 
(6) 
20=TE OF SEE 19=TEOB 
21=TDOT ens ©) 
TYPE . COLUMN 
C6) C7) 
22=TPC | 7 - 27). 
TYPE COLUMN PC OCUR 
(6) OT) (14) 
23=TDOLAR — G8 
TYPE FLAGS 
(6) €30) 


24=TERROR (24) 

TYPE COLUMN WARN EARORE 

co) C7) GD 6109 
—252TCARD © SEE 19=TE08 
26=TPROCESSED -— 
27=TROFNS (69) 


TYPE COLUMN URS RESOLVED OCUR ONFLAGS SNAM OCUR SCOPE 


€6) C73 €4) €14) C10) €14) (14). 
28=TLABELREC SEE O7=THORDO 
29 TCSPS DROPPED 
ZO=TSTATESTOP at 
3L=TINDEX &t 
32=TSuBS  & 
33=TBO0ST OP ae 
| 34=TARITHOP wt a 
35=TINDOSECT This token put on SEGFILE at specific location 


awaiting PROSYN processing..-See SEGFILE LAYOUT. 
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BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP COBOL COMPILER LOGIC 


SANTA BARBARA PLANT P.Se 2212 5397 (C) 


QNINEC: CINTERNAL EILE) DATA DIVISION Cy) 


(96) 

LEVEL SUST BuZ OCCURS COPX PC LGTH ADR. USAGE #SU8S 
| VALUE FLG | 

(7) cil) Cid €16) €i2) ci) €18) €33) €3) (2) 


ED GD GED EE EEE SB BBS EE @ BBD BD EB DODGE BE BEDE OE BSD BS BBD SG OS 2S C SC CBE BC BSEBS BOE OHEHEEADESE 


IF PC.FLG THEN LGTH=PCINFO INDEX. 
IF LEVEL=50 THEN LGTH=NON OCUR. 
IF &#SUBS NEQ 0 THEN SUBSCRIPTED & #SUBS=122-0R 3. 


USAGE 


O=UNDEF ENED 
1=CNP 
2=DISPLAY 
3aHEXED 
4=ASCEI 

5=1 NDEX 
6=UNDEF INED 
7T=CNP=3 


ASCIIE FLAG 
‘O=EBCOIC 
1=ASCII 
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COMPUTER SYSTEMS GROUP COBOL COMPILER LOGIC 
SANTA BARBARA PLANT PeSe 2212 5397 (CC) 


IF ENTRY=0 THEN ENTRY=WORKING STORAGE ELSE ENTRY=FO: 
€96) 
LEVY SO FD UN- FILE EF PB Of FILE FILE FILE FILE FPB MAX 
USED ORG. INDEX OCUR LABEL HOWR ACCESS CIMNTTS NUM REC 
| | TYPE FLAG 
C7) CL) CLD CLI C2) €9) C14) (4) C7). ¢4&) ci) C9) €18) 


FILE ACCESS 


ED 0 4b a he eS Oe & 


SEQUENT IAL 

RANDGH 

UNOEF INED 
DYNAMNEC 


a 


tal NI oe © 


FILE ORGANIZATION 


<p lb Gh Gb 4D 0 0b 4 a OP SE Oe OS 


SEQUENT EAL 
INDEXED 

UNDEF INED 
UNDEF INED 


WN = © 
How Wow 
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COMPUTER SYSTEMS GROUP ._ * COBOL COMPILER LOGIC 

SANTA BARBARA PLANT | PoS. 2212 5397 (C) 
ALLONF ILE: FROM EXPLODE CvI) 

OO=TINTGR C334 CLENGTH*8)) 


TYPE COLUMN URS SCALE BYTE LENGTH EBCDIC LITERAL 


(6) (7) ce) (8) CBD (255 MAX) 
O1=TREAL SEE 00=TINTER | 
O2=TNNLIT SEE OO=TINTER 

O3=TF ILEREC (281) 


TYPE COL URS COPX ®BASIC FPB PC ON JUST SWZ NON USAGE | 


cop INFO INFO FLAGS  ENFO 
C6) C7) €46&) C42) (53) (60) (764) €10) C2) C1) €30)0 €3) 


2D i ED GE GD OD EN UD GD GE GD A AD OS ND OS GD Gh GE GAGE Gn 46 4 1S @ OE 8 OO OHH OREABAEDADWABDOMEA mh 2) aD ab a an ae aaa 


O4=TXSECH €44) 


Eb GR GE GR GD GE GE ED GR EEE DD OE SBE EE DS BME BSH BE BSE BBE @ BS DB @ OE OES @ OSS OSE COE BOD OD 


TYPE COLUMN URS LABEL FLAGS SEG# SAMENAME OCUR 


C6) = 7) C4) (6) (7) C18) 
OS=TXPAR «SEE (04=TXSECN | 
O6=TF IXUP — 

O7=TWORD (281) 


TYPE COL URS COPX BASIC COP PC ON JUST @8WZ MON USAGE 
coP FACTS INFOQ FLAGS INFO 
C6) €7)3 C4) CHEZ) C53) C80) (74) (10) CL) €1) ©€30) (3) 


. 7 { 


| 
| 


{ 
{ 


O8=THMON -- 

O9=TCSPL SEE O7=TWORD 
10=TCSPR SEE 07=TWORD 
LI=T@UAL 7 

12=TLASL (58) 


f : 
SE GR GD OD GR GD OD SED GD GE GD EE GD EE EE GEE ED @ COE 45 SD EB DWE FM DEE CBSE BEBO BE @ BOS SBS C COBB ESBESE 


TYPE COLUMN URS LABEL FLAGS SEG# SECTION LABEL 
| | OCUR OCUR 
(6) (7) (4) (6) (7) (14) C14) 


L3=TALTER | «66) 


TYPE COLUMN URS LABEL FLAGS SEG# SECTION CLAGEL ALTER TABLE 


OCUR OCUR INDEX 
6) £€7) €4) (6) c7) €14) C14) € 8) 


14=TPERF (66) | 

TYPE COLUMN URS LABEL FLAGS SEG# SECTION LABEL TERM PARS- 
| QcUR  OCUR 
(6) C7) C4) (60> TY Oa) C14) €8) 


E5=TPTHRU | SEE L4=TPERF 


35=TINDSECT ialial 
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L6=TLMON -- 
17=TL QUAL — 
LS=TRESWD (29) 
TYPE COLUMN KEY CIN HEX) 
6) OF) (16) 
19=TEOB 
TYPE 
C6) 
20=TE OF SEE 19=TEOS 
21=TOOT a (13) 
TYPE COLUNN 
(6) 7) 
22=TPC - DROPPED 
23=TDOLAR. (36) 
TYPE FLAGS 
(6) = €30) 
24=TERROR (24) 
TYPE COLUMN WARN ERRORS 
(6) 3) OTD qi? 10) 
25=TCARD SEE 19=TEOB 
26=TPROCESSED — 
27=TRDFNS = > 
28=TLABELREC on 
29=TCSPS -- 
SO=TSTATESTOP t & 
3i=TENDEX SEE O7=TWORD CEMPLICIT LE¥EL 50) 
32=TSUB ten 
33=Te8O00STOP ae 
34=TARITHOP a * 
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COMPUTER SYSTENS GROUP COSOL COMPILER LOGIC 
SANTA BARBARA PLANT | PeSe 2212 5397 CC) 


ALLDNEILES FROM PROCEOQURE DIVISION SYNTAX CHECK (VIED 


O0=TINTGR C264 CCLENGTH*SIGNED)#C4 OR 8D)? 
TYPE URS SCALE LENGTH LITERAL | 
(6) ¢) () ~~ 68) (255 MAX) 
QL=TREAL SEE OO=TINTGR 
-O22TNNLET SEE OO=TINTGR 
O3=TFILEREC (272) 
TYPE URS COPX BASIC FPB PCINFO ONFLAGS JUST ®8WZ HON 
cop —sCxENFO a 3 INFO 
(6) Ch) 12) C532 (80) FD (10) C1) CLD C300 
 O42TXSECN nc s3: 


Se ee ee ee ee ae ee —— 2 Uh ah Th ab Gb Gh a 6b 4b 44 a 


TYPE URS LABEL FLAGS SEG# 
C6) €4&) (6) (7) 


"i 0 GD ED ND ED AE. EN A EN A GE A GR ED Gn SD GE a Gs a 


Label OCUR need not be in token since it can be cosputed froa 
a sequential explicit label counter. The alter tabte index can also 
be cosputed to give to the code generator. 


OS=TXPAR SEE O4=TXSECN 
O6=TF IXUP - 
O7=TWORD © 271) 
TYPE URS COPX ASIC COP PCINFO ONFLAGS JUST 8WZ MON 
| cop) ss FACTORS INFO 
(6d C4) C12) 53) 80) (74) (10) (1) ci) C30) 


‘Note: For DATE» TIMEs TOODAYS“DATEs etcs a TWORD is created Cinternat 
to PROSYN) with SUBF=0+ #S5UB8S NEQ O» and FACTORI tetis which: 
AI=DATEs 2=TIME» S3=TODAYS“DATEs 4=TODAYS“NAME 


O7=TWORD (Cont. ) 
URS 


INDE XEO®.ON cor. RELATIVE INDICATOR INOEX 
«id 2) C1) 
ENDEXED.ON =this is an tindexed DATANAMNE CDN INDEXED BY...) 
COP relative indicator: 
Set internat to CODE/GENERATOR 
O=USE SEG# & OISP tn basic COP 
2=DISP is relative to reusable TRASH BASE DISP 
ONOEX = 77 C USAGE INDEX. 


08=TWHON ch 
09=TCSPL = 
LO=TCSPR == 
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SANTA BARBARA PLANT PeSs 2212 5397 CC) 
LL=TQUAL -- 

12=TLABL (SL) 


TvVPE «€©URS)~ 6LAGEL FLAGS SEG# SECTION OCUR LABEL OCUR 
(6) C4) (6) «7) (14) C14) 


iD GD SD GE GD GD GD ED GB GR GD ER GED GE ED GE GED GD GEG GD 4D ED GD GE EDGE GB 68 4D GEE 4B 8 OE 044 OE BE OHM @ BS GSD OD 


Search routine in PROSYN uses tow order bit of URS to tell condition. 


routine in CODEGEN to use NEXT SENTENCE OCUR CNS.OCUR). NS-OCUR is set 


by search routine in COQOEGEN. 


L3=TALTER (59) 
TYPE URS LABEL FLAGS SES# SECTION OCUR LABEL OCUR ALTER INDEX 
(6) C6) (6) C7) (a) (14) (8) 

14=TPERF (59) 
TYPE URS LABEL FLAGS SEG# SECTION OCUR LABEL OCUR TERM PARS 
(6) Ch) (6) (7) Cla) rats: (8) 

15=TPTHRU —«OROPPED CALL PERFORMS= L4=TPERF) 

L6=TLMON 

17=TLQUAL -- 

L8=TRESMD (30) 


BDES ED CEE OOD DD @ SB @ 
: . 


TYPE URS KEY 
C6) (€B8) (16) 


If KEY=ALPHABETIC of NUMERIC then 


URS | 
NOT CLASS UNUSED 
qi) (7) 
Ef KEV=RELATIONAL.OP C(LSSoLEQsNEQrEGLeGEQ+GTR) then 
URS 
UNUSED IMPLIEO SUBJECT 
C7). qi) | 
19=TEOB (6) 
TYPE 
<6) 
20=TE OF SEE 19=TEOS 
21=T00T DROPPED (Changed to RESERVED) 
22=TPC -- 
23=TDOLAR (36) 
TYPE FLAGS 


C6) C30) 


- 2 SD 2 SD GR GP GE 03 6 4 Sa ee 
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24=TERROR (24) 
TYPE COLUMN WARN ERRORS 

acs eras ai) 10) 

25=TCARD © ss SEE 19=TE08 

26=TPROCESSED sep 

27=TRDENS ~- 

28=TLABELREC -—- 

29=TCSPS DROPPED 

30=TSTATESTOP SEE 19=TEOB 


Gener at use is to deliait a statement for COODEGEN because the 
CODEGEN controt routine atwuays does a get for a reserved word 
Cuntess INHIBIT.GET.OP is set). An exanple of use of TSTATESTOP: 
the MOVE verb eay have aultipte receiving fields and sust keep 
scanning in PROSYN until it gets a non-receiving field token. 
Putting out the YSTATESTOP makes scanning in CODEGEN easier. 
atso used in PROSYAK by SORT> ACCEPT/DISPLAY> DUMP » SET» stop RUN» 
and 
Data Nanagenent. 


Si=TENDEX «SEE O7=TWORD X% IMPLICIT LEVEL 50 
32=1SuB as? | 

TYPE URS COPX 8ASIC COP 

<6) 4) «2d 53) 


33=Te8qG0STOP SEE 19=TEOB 
34=TARITHOP | (19) 7 | 
TYPE. URS OPERATOR OPERATOR ROUND SIZE MULTIPLE RECEIVING 
| | CLASS ~ ERROR FIELDS 
(6) «4d 8) (2) q1) (1) C1) 


SD ED GD GE GED GSD OD GE GE GE GE GE GE GD EB GD GR ED EB GB GD G8 GE GE EE G8 GR ED GD GD GED GE GD GD GD OD OD GE OB EE OE EE 014 E BB BO BC OEMS GG @ DB @ & 


EF OLVS THEN: 
URS 


REMAINDER ROUNDED REMAINDER UNUSED 


Ci) qi) (2) 

IF STORE THEN 

URS 

UNUSED EMIT.BCFCL) FOR e* OR / IN COMPUTE 
(3) (1) 

OPERATOR: 


O=ADD 2 1=SUB»2= NUL » S=DIV eo SHE XP > S=MODe 6=STORES 7=STOREMOD> 
S=DELETE“TCP-OF “ST ACK» 9=CHANGE@SIGN 

OPERATOR CLASS: 
EGS AODOsADDIL»ADD2- ADDS 
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SUB0 »>SUBL» SUB2»SUB3 
DIVL->DIV2>DIV3> 
MUL 1» MUL 2 
352TENDSECT (33) 
TYPE TXPAR ALTER INDEK TLABL OCUR TLABL SEG 
(6) (8) a2 c7) 
3esTMINT MUM | 


TYPE URS MINIMUM SCALE MINIMUM LEFT PART 

(6) C4) €8) €8) 
used by CODEGEN to establish mininum scate & left part for 
intersediate results 
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ss sRABELTAQLE? EROM CODEGEN CVIEID. 


(83 BIT ENTRY<<e17 PER DISK SEGMENT) 
TYPE=3 CLINK) 


TYPE UNUSED CLABEL-OCUR 
(2). (64) (17) 


TYPE=O0s102 CO=PLAIN ADRel=AND ADR» 2=THEN ADR) 
TYPE UNUSED SEG# CODE #B8ADDRS #LENBS #0ISPS #DADDRS 
2) €13) (7) €22)°> ©13) (13) (13) (13) 


Notes sDISPS is count of DISPs that abso have a SEG as part of the 
address. FDADORs have OLSP but no SEG. 


&-25 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
| COMPUTER SYSTEMS GROUP COBOL COMPILER LOGIC 
: SANTA BARBARA PLANT — PeSe 2212 5397 CC) 


SEGEILE? EROM ALL PRIOR PHASES 


Note: MERGE» DATSYNe and CODEGEN each have a discrete area for 
their tokens. 18 = TCARDADR is entitted only by DATSYN. 
Most were designed for use by CODEGEN. 


2ee 202020202802 00628020080 0088082828 0202282028882 O28 C8228 HB BOO H8H8EHAHECHBHAHEOE4ETBEOOEB EEE Ee 


SEGFIHILE HE AODER CDISK SEGMENT 0..-2 DISK SEGMENTS) 
See conpiler listing for contents. 
PSEUDO Caqaodot Of CTEONAR Y C11 DOLSK SEGMENTS) 
C146 BIT ENTRY...10 PER OISK SEGMENT) 
Used to collect code together as user speci fied. 
LINK LINK UNUSED CODE #B8ADORS #LENBS #DISPS #DADDRS 
HEAD TAIL 
€20) €203 €30) (22) (€£3)3 C13) (13) (13) 


TENDSECT ENTRY TABLE C1 DISK SEGHENT) 
C10 BIT ENTRY...100 ENTRIES) 


Nuaber of entries for this code segment. 


TP GD GD OD GD GE EE BS BS CES BE © BE BEEBE BLS BOSSE GC BERL DOWAS 


@22e2eOee2sd8 oe 8290880882028 89888828228 8289288 8828088888888 8HHOHEAODBEOBH OH HOA OEBHSED 


TENOSECT TOK ENS €100 DISK SEGMENTS) 
C27 BIT ENTRY..-53 PER DISK SEGMENT) 
TXPAR ALTER INDEX TLABL OCUR TLABL SEG# 
ca) C12) (7) 
Note that this setup Lieits each user*®s independent code segauent 
toa 53 alterable GOTO paragraphs 


SOO @ @ O © O @ BO CC OOO OG GO OO 08 OO 068848 826 O24 808 HHEHHOHHDHOHODHHEOANHDHHEBROAHLE 


PATH DLC T 1 ON AR Y COATA HANAGEMENT=-12 disk segments) 


MERGE TOKENS 
See decumentation on TOKENS 
DATSYN TOKENS | 
See docuaent ation on TOKENS 


ONDICTYABLE | | | 
C47 BIT ENTRY...30 PER DISK SEGMENT) 
SEG DISP LENGTH ALLOCATE.01SK.ON.CODEFILE 
C7) €24) €18) qi). | 
SEG=Data Dictionary Index | 
CLENGTH=Byte Length 
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Initialize: L=WORKING STORAGE» FILE LABELS» etc. 
O-Other CFD 01 RECORDS» etc.) 
Last ONDICTTABLE entry is terainator set to alt 0 bits. 


coP TABLE 

C55 BIT ENTRY..-26 PER DISK SEGMENT) 

BASIC COP CTYPE=0) 

“TYPE SEG OISP LENGTH §SUSFI OTYPE ASCII 
C2) (7) C24) (18) 8D 2D (1) 

ae final COP TABLE: | 

IF 1 5SU8 THEN 1 EXTRA COP TABLE ENTRY. 0. 

If SUGF=1 THEK FGLLOWED BY | | 

SUBSCRIPT ENTRY CTYPE=1) 

IF 2 OR 3 SUBS THEN 2 EXTRA COP TABLE ENTRIES. 
TYPE #SUBS UNUSED SOUND FACT1 UNUSED 
C2) 2) C1) C24) (24) €2) 

AND IF #5U8S>0 THEN FOLLOWED BY 

SUBSCRIPT ENTRY #2 CY YPE=2) | | 
TYPE UNUSED FACT2 FACT3 UNUSED 
2) 3) (26) C2402) 


©8000 80080008 F8 08822 AZ AHOZEOe ee eo eeeeee eoenaeaeceeneoann ed eee e029 0208828288 8 8 


F P68 (C2 DISK SEGMENTS) 
One entry per file declared in the progran. 
FPS CAS MCP EXPECTS IT) OTHER FILE INFO: “FPB.TRAILER™ 
Ct SEG) | (i SEG) 


@#eeeoaneaenae’e eee eoeooewse 26288 0282 242878206088 O28 OH 8298OH T4288 8C 8H EBSH COR HBH OOOH E8 O88 E88 2 


ALTER TABLE 
C21 BIT ENTRY ~~-68 PER OFSK SEGMENT) 
TXPAR SEG TLABL OCUR 
«7) €14) | 


1D Gh GW ED 4 OO ER 8 HSE @ @ BBS EC BOGE EE 


Note: Arbiteary tiait of 150 isposed by PARSE. 
COOEGEN t O KEAN S 
See betouw. 
00=TCOPXx 29) 
TYPE COPX SUBFLAG #SU8S SUBSED.0N SEGA. 
€6) €i2) ct) C2) qi) (73 


2D OP me OD SE GD GD SD Oe ED GD OR 8 EE Gh OD @ OE SS Ob OE 48 1 EE 20 1 OE OE OC ES COE EE OD OS &@ CS ae ae 
Fe 


BURROUGHS CORPORATION 
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OL=TLIT CLO* CCLENGTHESIGN) (4 


MD 6 ED ED ED GE GE ah GE GE GA EE OS @ BME OE BS OED SS 


TYPE CTYPE CLGTH LSYNB 
€6) €2) «8) (255 MAX) 


TE ED EE ESE BO OOS DS OEE BS COE BSD wD 


LTYPE 

=@ B1T UNSIGNED 
1=8 BIT 

2=4 BIT SIGNED 
3mRESERVED 


O2=TCOP CLNLINE) (64) — 
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TYPE) 6BASEC COP) 6#5U8S) 4 SUBBED.ON COP RECATEVE INDICATOR 


C6) 53). (2) qi) (2) 


Se ED GO GD GR GE OB GQ GD GD GE AD 4D GD GE GD SE 0 GE GD GE SE GD GE GD GD OD GD EE 46 48 8 SEB EEE COE) C8 CB BEBO SEE B NEEDS 


SUBBED.ON? 


IF SUBF AND SUBBED.ON THEN SUBSCRIPTED DATANANE 
IF SUBF AND NOT SUBBED.DN THEN INDEXED DATANAME 


‘O3=TDADOR | | (32) 
TYPE’ TOAOOR RELATIVE INCICATOR DADOR 
(6) 2) (24) 
TOADOR RELATIVE INDICATOR: | 
OO=RESERVED 
OL=DATA SEG 0 RELATIVE 
LO=RELATIVE TO TRASH 


04=TOP C18) 

¥YPE OP CODE 
(6) 12) 

O05=TBADOR (39) 

TYPE LABEL-TAGLE ocur 
(6) C33) 

O6=TBITS — CLS4+LENGTH) 
TYPE BET LENGTH SET STRING 
«> = €8) €255 MAX) 

O7=TSUBORINX (61) 


TYPE BASIC COP COP.REL.~INDICATOR 
(6) (53) C2) 


ER GR GD ED ED EE ED AE GE ED GE GO ON OE OC OE OS SB BH BG B44 BOB AS CEOS SS 
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—O6=TSEGLINK (34) 


TYPE OUSK AOR GF NEXT SECTION SEGS 
TO BE PLACED IN THES 
PHYSICAL coe SEG 
«€6) €20) | €8) 


Renn ne numa 2D GED GD GE GD GE GE GD GR GE GE GE 4B GE 4 GE GE GE OF OD COO EOE OS 
, 


O9=TF ACTOR (24) 
TYPE FACTOR 

<6) 18) 

10=TBOUND (30) 
TYPE TAGLE BOUND 

(6) C24) 


Liz TALTERINDEX C14) 
TYPE ALTER INDEX | 
€6) c8) 
Mote: Size of container for ALTER table is not known. This is a 
pointer relative to ALTER table baseCused by GOPAR operator ). 


t2=TOPNDX. -_ SEE OO=TCOPX 
L3=TLITFIX C260 (LENGTH*(€4 OR 8))) 
a aaa ca a adele ala OP AE ED GD OD GE OD EE BS BOERNE DWSBWEASNBDADSES m2 a ae oe 
TYPE CLTYPE LENGTH SET.OISP YTOADDR RELATIVE INDICATOR CLLTERAL 
6) 8 (€2) €8) €i0) C2) C160 MAX) 
Note: LENGTH does not include GET.DISP of TDADOR relative indicator. 
BIT.DISP is bit tacation in the LIT to be fixed up. The length of 
the area to be fixed up is assumed to be 24. 

“Note: For 170 type verbs the ADR its changed in FIXUP to be BASE REG. 
relative. t./.e: include COP table &@ EDIT MASK. 


14=TSTOP  +S§€E 19=TEO8 
Note: Tersinates a portion of code uhen CODEGEN encounters a TXSECN 
with SEG# NEG SEG# of tast TXSECN. 


15 «* 
16. fe 7 
L7=TMEMVALUE | C7TO0@CLENGTH*<C€4 or 6))) 
TYPE —ASCIE CTYPE LIT —h ALL RIGHT ONOICT OFGEIT OEST LSYMB 
| FLAG LENGTH FLAG JUST TABLE DI SP SIZE 
| INDEX | 
€6) oD ci) <8) Ci) C1) €10)_ 2a) C18) ©€160 MA? 


Note: Maps @VALUE® clause ento codefite so initiat walues are tloaded 
at run tiae. 


ONDICTTABLE INDEX of 0 indicates DSEGO 
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18=TCARDADR (51) 
TYPE DNDICTTABLE INDEX OIGIT DISP coPX 
C6) Co) | (24) (12) 
Note: To give an address associated with a card to printed on the 
report. 
19=TEOB <6) 
TYPE 
(6?) 
‘20=TE OF | SEE 19=TEOS 
23=TDOLAR | (36) 
TYPE FLAGS 
<6) C30) 
24=TERROR (24) 
TYPE COLUMN WARN ERRORS 
(6) (7) Ci) ClO) | 
 25=FCARD SEE 19=TEOB 7 
siete erbleb C284 (LENGTH*(4 OR 6))) 


NEE LITYPE CENGTH FIX. CTNUM TOADOR RELATIVE INDICATOR LITERAL 
6) (2) (8) (10) C2) CL6O MAX) 
Fields are anatogous to those for TLITFIX except for FIX.CTNUM. The 
Riterat is assurged to be a comsunicate sessage in which CT.1 thru 
CT.10 may need to be fixed up. Each bit of FIX-CTINUM corresponds 

to a CT. then the E-th bit of FIX.CINUM is one FIXUP will fix the 
CT.f (the I-th CT). 


ai 
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DISK ADR 
; 0 | 

1 

ae 


CODEFILE: EROM FIXUP (1X). 


CONTENTS 

PROGRAN PARAMETER BLOCK cPPB) 

RUN STRUCTURE 

DATA DICTIONARY 

DATA CTHE VARIABLE DSEGO.DISK.ADR POINTS TO HERE) 
CODE DICTIONARY 

CODE | 

FILE PARAMETER BLOCKCS) (FPS) 

PATH DICTIONARY COATA MANAGEMENT) 
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